(use srfi-13)
(print (string-map
        (^c (if (char-upper-case? c) (char-downcase c) (char-upcase c)))
        (read-line)))