foreach n [read stdin] {puts "$n = 6 * [expr [incr n]/6] [format %c [expr 45-$n%6]] 1"}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page