import Data.Char

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

ans :: Int -> String -> String
ans n s = map (ans1 n) s
ans1 :: Int -> Char -> Char
ans1 n c
   | n+(ord c) > ord 'Z' = chr $ n+(ord c)-26
   | otherwise = chr $ n+(ord c)
