(var i 1024)
(while (> i 0)
  (print i)
  (set i (// i 2)))