delete words by ttmh

(do((b(nth(mod(sxhash(read-line))3)'(#36rFRPLALRY1L2KFU7Y5GQ34EKKBBYTC0
#36rSFJTPUHWUI8OL3XJV38I1YL1C #36r3O516LKT1O3QEKYDSZC3WSQBI)))(i
155))((format t"~:[~C~; ~]"(logbitp(decf i)b)(read-char))))

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page