open monad io

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