module Main where

main :: IO ()
main = do
    n <- read <$> getLine :: IO Int
    s <- getLine
    putStrLn $ map (convert n) s

convert :: Int -> Char -> Char
convert n c =
    case fromEnum c + n of
        i | i > fromEnum 'Z' -> toEnum $ i - 26
        i                    -> toEnum i
