(loop(format t"~A "(if(<(setf s(read-line)l(-(length s)4))1)-1(count()(map'list'equalp(format()"li~V@{n~}ux"l t)s)))))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page