9 lines
138 B
Text
9 lines
138 B
Text
|
open monad io
|
||
|
|
|
||
|
|
loop n | n % 6 == 0 = do return ()
|
||
|
|
| else = do
|
||
|
|
putStrLn (show n)
|
||
|
|
loop (n+1)
|
||
|
|
|
||
|
|
_ = loop 10 ::: IO
|