while {[incr n]<64} {puts [expr 10**(1--$n/9)/9*(9--$n%9)]}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page