RosettaCodeData/Task/Loops-N-plus-one-half/Haskell/loops-n-plus-one-half-1.hs

main :: IO ()
main = forM_ [1 .. 10] $ \n -> do
            putStr $ show n
            putStr $ if n == 10 then "\n" else ", "