RosettaCodeData/Task/Loops-Do-while/Ela/loops-do-while.ela

open monad io

loop n | n % 6 == 0 = do return ()
       | else = do
          putStrLn (show n)
          loop (n+1)

_ = loop 10 ::: IO