put 1024 into n
repeat while n > 0
    put n & cr
    divide n by 2
end repeat