for {set i 0} \$i<100000 {incr i} {lappend a $i};puts $a
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page