import Control.Monad
import Control.Applicative
import Data.List
import Data.Char

main ::IO()
main=do
	s <- getLine :: IO String
	putStrLn $ map toABC $ zip s [1,2..]
	
toABC :: (Char,Int) -> Char
toABC (c,n) = chr $ ( ( (ord c) - (ord 'A') - n + 26*1024 ) `mod` 26 ) + (ord 'A')