import Data.List
import Data.Maybe

solve :: String -> String
solve = zipWith u [1..]
  where
    a = reverse ['A'..'Z']
    u i c =  let n = fromJust $ elemIndex c a
                 j = (i+n) `rem` length a
              in a!!j

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