import Data.Char import Data.List main = interact $ map (\c -> head (delete c [toLower c, toUpper c]))