RosettaCodeData/Task/Loops-While/Ursa/loops-while.ursa

decl int n
set n 1024

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