(do((a 0)(b 0(+ b 8)))(())(if(> b 8)(setf x(princ(int-char(rem a 512)))a(ash a -9)b(- b 17))(incf a(ash(read-from-string(format()"#x~A"(read)))b))))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page