module Main where

import Data.Bool
import Data.Char

main :: IO ()
main = interact (map recap)

recap :: Char -> Char
recap c = bool (toUpper c) (toLower c) (isUpper c)