set i -1
while {[incr i]<1e5} {append s $i\ }
puts $s