(loop(write-line(set's(read-line))():end(do((i 0))((find(length s)`(,(incf i),(mismatch s s :start1 i)))i))))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page