(while (>= x 10) (begin (:= tmp x) (:= x y) (:= y tmp)))