(mapc'write-line(sort(sort(loop while(listen)collect(read-line))'string<)'< :key'length))