import Data.Char main = do cs <- getLine print $ compute cs compute cs = map ulcase cs ulcase c | isLower c = toUpper c | isUpper c = toLower c | True = c