8 lines
138 B
Text
8 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
|