import qualified Data.Text as T
import qualified Data.Text.IO as T
import Data.Char 

main :: IO ()
main = do
    n <- readLn
    s <- T.getLine
    putStrLn $ solve n s

solve :: Int -> T.Text -> String
solve n s = T.unpack (T.map (\x -> chr ((mod ((ord x - 65) + n) 26) + 65)) s)