decl f:Ref(Fun(Int, Int)) = var(fun z:Int (Int) => 0 end) t:Ref(Int) = var(0) in
while(!t < 40) do
f :=
if((!t % 2) = 0)
then
fun x:Int (Int) => x + 1 end
else
fun x:Int (Int) => x + 3 end
end
;
t := (!f)(!t)
;
print(!t);println()
end
end;;
language for nerds, stuff that (doesn't) matter
