(mut i 0)
(while true {
  (print i)
  (set i (+ 1 i)) })