make "n 1024
while [:n > 0] [print :n  make "n :n / 2]