(loop(format t"~(~:[~*~;~A~]~A~)~@[ ~]"(/=(setf x(read)z(mod(sxhash x)28))18 1 15 17 6)x(case z(11'n)(2'sagi)(23'ni)(18'sayonaraion)(1'tanoshii)(13'nagi)(15'itadakimausu)(12'kanku)(5'nbou)(9'usu)(6" nakamaga popopopo-n")(17'yukaina)(t""))(/= z 1 17)))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).