>>758
Haskellでもforの方が読みやすい?


import System
import Control.Monad

main = do
  argf <- mapM readFile =<< getArgs
  forM_ argf $ \f -> do
    forM_ (zip [1..] $ lines f) $ \(i,x) -> do
      putStrLn $ show i ++ x