(let ((var a 0) (var b 1) (var c 0))
  (while (< b 1000000) (begin (:= c (+ a b)) (:= a b) (:= b c))))