RosettaCodeData/Task/Loops-Foreach/Ela/loops-foreach.ela

open monad io

each [] = do return ()
each (x::xs) = do
  putStrLn $ show x
  each xs