import qualified Data.Map as M
solve :: Int -> Char -> Char 
solve shiftVar inChar = outChar
            where inInt   = fromEnum inChar
                  outInt  = (((toEnum (inInt + shiftVar)) - 65) `mod` 26) + 65
                  outChar = toEnum outInt
main = do
 n <- read <$> getLine :: IO Int
 s <- map (solve n) <$> getLine :: IO[Char]
 putStr s