(port-map(rec'x #0=(print x)#0#)read-line)