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