decl int n
set n 1024

while (> n 0)
    out n endl console
    set n (int (/ n 2))
end while