(port-map(.$ display char-upcase)read-char)