import Data.Char

solve :: String -> String
solve s = map trans $ zip s [1..]

trans :: (Char, Int) -> Char
trans (c, i) = chr $ (ord c - ord 'A' - i) `mod` 26 + ord 'A'

main :: IO ()
main = do
    s <- getLine
    putStrLn $ solve s