mapM_ (putStrLn . show) [1..]

/thread