13 lines
203 B
Text
13 lines
203 B
Text
open monad io
|
|
|
|
loop n =
|
|
if n > 10 then do
|
|
return ()
|
|
else do
|
|
putStr (show n)
|
|
putStr f
|
|
loop (n + 1)
|
|
where f | n % 5 == 0 = "\r\n"
|
|
| else = ", "
|
|
|
|
_ = loop 1 ::: IO
|