import qualified System                                             -- Cat.hs

main = do
   args <- System.getArgs
   putStrLn (shows (length args) " arguments")
   let (flags, files) = span (("-" ==) . take 1) args
   print flags
   mapM (\ file -> readFile file >>= putStrLn) files