(port-map(rec,x(print x"
"x))read-line)