(map display(port-fold cons '()read-char))