import Data.Char (ord, chr)

main = do
  s <- getLine
  let
    f c n = chr $ ((ord c - ord 'A' - n) `mod` 26 + 26) `mod` 26 + ord 'A'
   in putStrLn $ map (uncurry f) $ zip s [1..]