main = do
    n <- readLn :: IO Int
    s <- getLine
    putStrLn $ solve s n

solve :: String -> Int -> String
solve s n = map sub s
    where
        sub x = do
            if (fromEnum x) + n > fromEnum 'Z'
                then toEnum ((fromEnum x) + n - (fromEnum 'Z') + (fromEnum 'A') - 1)
                else toEnum ((fromEnum x) + n)
