open monad io

loop [] = return ()
loop (x::xs) = do
      putStr (show x)
      putStr f
      loop xs
  where f | x % 5 == 0 = "\r\n"
          | else = ", "

_ = loop [1..10] ::: IO