(port-map(^x(print x"
"x))read-line)