set i 1024
while {$i > 0} {
    puts $i
    set i [expr {$i / 2}]
}