set i 83
while {[incr i -1]} {puts -nonewline $i}