RosettaCodeData/Task/Loops-While/Tcl/loops-while.tcl

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