import Data.Char (isLower, isUpper, toLower, toUpper)

swapCase :: Char -> Char
swapCase c
  | isLower c = toUpper c
  | isUpper c = toLower c
  | otherwise = c

swapCases :: String -> String
swapCases s = [swapCase x | x <- s]

main :: IO ()
main = getLine >>= putStrLn . swapCases