import System.Environment

main = do
  args <- getArgs
  mapM_ dump args
  where
    dump file = do
      content <- readFile file
      putStr content

こんなの？