((^l(dotimes'14(map(^s(display(string-ref s . '"")))l)))(port-map + read-line))