set n 50
while \$n {puts $n\n[expr 100-[incr n -1]]}