import Data.Char main :: IO () main = getLine >>= putStrLn.map (\c -> if isUpper c then toLower c else toUpper c)