Another update from ingydotnet^djgoku

Task/Loops-Infinite/Ela/loops-infinite-1.ela

@@ -1,3 +1,7 @@
-open console
+open monad io
 
-loop () = writen "SPAM" $ loop!
+loop () = do
+  putStrLn "SPAM"
+  loop ()
+
+loop () ::: IO

Task/Loops-Infinite/Ela/loops-infinite-2.ela

@@ -1,5 +1,10 @@
-open console list
+open monad io
 
-loop () = writen "SPAM" :: (& loop!)
+xs = "SPAM"::xs
 
-take 10 <| loop! //prints SPAM only first 10 times
+takeit 0 _ = do return ()
+takeit num (x::xs) = do
+  putStrLn x
+  takeit (num - 1) xs
+
+_ = takeit 10 xs ::: IO