(loop(write-line(set's(read-line))():end(do((i 0))((find(length s)`(,(incf i),(mismatch s s :start1 i)))i))))