(port-map(lambda(x)(display x)(display x))read-char)