set n 9 while \$n<1e4 {if [regexp ^9?8?7?6?5?4?3?2?1?0?$ [incr n]] puts\ $n}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page