import Data.Char

move_left :: Char -> Int -> Char
move_left c n = if n == 26 
                    then c 
                    else if (ord c - n) < 65
                        then chr (26 - n + ord c)
                        else chr (ord c - n)

solve :: String -> String
solve xs = map (\(c, n) -> move_left c n) $ zip xs (cycle [1..26])

main = do
    xs <- getLine
    putStrLn $ solve xs