import Data.List
import Data.Char
import Data.Maybe
import Control.Monad
import qualified Data.ByteString.Char8 as BS8

main :: IO ()
main = do
    n <- fst . fromJust . BS8.readInt <$> BS8.getLine
    s <- getLine

    putStrLn $ ((map chr $ map (\x -> ((x - 0x41 + n) `mod` 26) + 0x41) $ map ord s) :: String)
