import Data.Char main = do s <- getLine putStrLn $ map switchChar s switchChar :: Char -> Char switchChar x | isLower x = toUpper x | otherwise = toLower x