module Main where

import Control.Applicative
import Control.Monad
import Data.Char

convert :: Char -> Char
convert c
    | isUpper c = toLower c
    | otherwise = toUpper c

main :: IO ()
main = do
    pwd <- getLine
    putStrLn $ fmap convert pwd