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