(let N 1024
   (while (gt0 N)
      (println N)
      (setq N (/ N 2)) ) )