-import "Prelude"\r
-\r
-@private\r
-repeat :: Integer -> (() -> <e> a) -> <e> ()\r
-repeat n proc = \r
- if n > 0 then do\r
- proc ()\r
- repeat (n-1) proc\r
- else () \r
-\r
-main = do\r
- a = ref 1 \r
- repeat 3 (\() -> a := 2)\r
- getRef a\r
---\r
+import "Prelude"
+
+@private
+repeat :: Integer -> (() -> <e> a) -> <e> ()
+repeat n proc =
+ if n > 0 then do
+ proc ()
+ repeat (n-1) proc
+ else ()
+
+main = do
+ a = ref 1
+ repeat 3 (\() -> a := 2)
+ getRef a
+--
2
\ No newline at end of file