RosettaCodeData/Task/Loops-While/Nanoquery/loops-while.nanoquery

$n = 1024
while ($n > 0)
    println $n
    $n = $n/2
end while