((^'l(map display(sort-by l(pa$ compare'l)>)))car(port-map + read-char))