(doseq'(set's(read-line))(push(subseq s(length *))*))(mapc'write-line(sort *'string<))