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