gets stdin n;while {[incr i]<11} {puts $n;incr n}