sum((for v in charlist(?read\-line())do ?princ(mod(58-cint(v),10)),newline()),i,1,9);
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page