import Data.Char
main::IO()
main = do
  s<-getLine
  let shift n c = chr $ (ord c -ord 'A' - n) `mod` 26 + ord 'A'
  putStrLn . map (\(n,c)->shift n c) $ zip [1..] s