foreach c [split [read stdin] ""] {append t [format %c [expr [set b [scan $c %c]]>64?$b+13-$b%32/14*26:$b]]} puts $t
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page