let var a := 0 var b := 1 var c := 0 in while b < 1000000 do ( c := a + b; a := b; b := c ) end