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