(use srfi-13)  ;; string library

(define (solve s)
  (string-map (^c (if (char-upper-case? c) (char-downcase c) (char-upcase c))) s))

(define (main args)
  (let1 s (read-line)
        (print (solve s)))
  0)