import Data.Char

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

uusaa :: Int -> String -> String
uusaa _ [] = []
uusaa i [x] = [uusaaUp i x]
uusaa i (x:xs) = uusaaUp i x : uusaa (i + 1) xs

uusaaUp :: Int -> Char -> Char
uusaaUp 0 c = c
uusaaUp i 'A' = uusaaUp (i - 1) 'Z'
uusaaUp i c = uusaaUp (i - 1) (chr $ ord c - 1)