-import "Prelude"\r
-\r
-main = do\r
- a = ref 1\r
- b = ref 0\r
- while (getRef a < 5) do\r
- b := getRef b + 1\r
- a := getRef a + 1\r
- getRef b \r
---\r
+import "Prelude"
+
+main = do
+ a = ref 1
+ b = ref 0
+ while (getRef a < 5) do
+ b := getRef b + 1
+ a := getRef a + 1
+ getRef b
+--
4
\ No newline at end of file