data:
n is number

procedure:
store 1024 in n
while n is greater than 0 do
    display n lf
    divide n by 2 in n
    floor n
repeat