import Control.Applicative import Data.Char main :: IO () main = do s <- map ord <$> getLine :: IO [Int] putStrLn $ map (chr . check) . zipWith (-) s $ [1..] where check i = if i <= 64 then check (i + 26) else i