putStr $ unlines $ map show [1..]