(port-map(rec,x #0=(display x)#0#)read-char)