((^r(r)(port-map print r))read-line)