import Data.List
import Data.Maybe
main = do
    n <- readLn :: IO Int
    s <- getLine 
    let x = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    putStrLn $map (\t -> x !! (((fromJust $ elemIndex t x)+n)`mod` (length x))) s