(format t"~{~A
~}"(sort(sort(loop while(listen)collect(read-line))'string<)'< :key'length))