import Data.Char

hanten :: String -> String
hanten [] = ""
hanten (s:xs) = w : hanten xs
    where
        w = if (isUpper s) then toLower s else toUpper s
    
main = do
    str <- getLine
    putStrLn $ hanten str