import Data.List
import Data.Maybe

main = do
    n <- read <$> getLine
    s <- getLine
    putStrLn $ solve n s

solve :: Int -> String -> String
solve n s = map shift s
  where
    shift c = a !! ((fromJust (elemIndex c a) + n) `mod` 26)
    a = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
