import Data.Char

solve :: Int -> String -> String
solve n xs = map (\w -> chr ((ord w - 65 + n) `mod` 26 + 65)) xs

main :: IO()
main = do
    x <- getLine
    s <- getLine 
    let n = read x :: Int
    putStrLn $ solve n s