Another update from ingydotnet^djgoku

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

@@ -1,9 +1,12 @@
-open datetime random console
+open datetime random monad io
 
 loop = loop' 1
-        where loop' n t | r == t = writen (show r)
-                        | else = writen (show r) `seq` loop' (n+1) t
-                        where seed = toInt <| (ticks <| datetime.now()) * n
-                              r = rnd seed 0 19
+       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
+
+loop 10 ::: IO