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