while c=$<.getc\x0d putc c>48?106-c:c\x0d end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page