(let (i 1024)
  (while (> i 0)
    (println i)
    (setq i (/ i 2))))