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