(let('reverse)(map print'(port-map(^s(string-join'(string-split s" ")))read-line)))