7 lines
72 B
Text
7 lines
72 B
Text
open monad io
|
|
|
|
loop () = do
|
|
putStrLn "SPAM"
|
|
loop ()
|
|
|
|
loop () ::: IO
|