(let ((i 1024))
  (while (> i 0)
    (message "%d" i)
    (setq i (/ i 2))))