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