Data commit

Task/Loops-Break/Ela/loops-break.ela

@@ -0,0 +1,12 @@
+open datetime random monad io
+
+loop = loop' 1
+       where loop' n t = do
+                dt <- datetime.now
+                seed <- return <| toInt <| (ticks <| dt) * n
+                r <- return $ rnd seed 0 19
+                putStrLn (show r)
+                if r <> t then loop' (n + 1) t else return ()
+
+
+loop 10 ::: IO