import Control.Applicative
import Data.Char (ord, chr)

main :: IO ()
main = solve <$> readLn <*> getLine >>= putStrLn

solve :: Int -> String -> String
solve n = map f
  where
    f = chr . (+65) . flip mod 26 . (+n) . subtract 65 . ord
