6 lines
86 B
Text
6 lines
86 B
Text
open monad io
|
|
|
|
each [] = do return ()
|
|
each (x::xs) = do
|
|
putStrLn $ show x
|
|
each xs
|