While3.scl

   1 import "Prelude"
   2
   3 main = do
   4     a = ref 1
   5     b = ref 0
   6     while (getRef a < 5) do
   7         b := getRef b + 1
   8         a := getRef a + 1
   9     getRef b
  10 --
  11 4