(port-map(rec,x(display #`",x,x"))read-char)