RosettaCodeData/Task/Loops-For-with-a-specified-step/Ela/loops-for-with-a-specified-step.ela

open monad io

for m s n | n > m = do return ()
          | else = do
              putStrLn (show n)
              for m s (n+s)

_  = for 10 2 0 ::: IO