while {[incr i]<101} {puts [expr 50-$i/($i%2*4-2)]}