Data commit

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

@@ -0,0 +1,7 @@
+open monad io
+
+loop () = do
+  putStrLn "SPAM"
+  loop ()
+
+loop () ::: IO

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

@@ -0,0 +1,10 @@
+open monad io
+
+xs = "SPAM"::xs
+
+takeit 0 _ = do return ()
+takeit num (x::xs) = do
+  putStrLn x
+  takeit (num - 1) xs
+
+_ = takeit 10 xs ::: IO