(apply map print(port-map string->list read-line))