main :: IO ()
main = do
    k<-readLn
    s<-map fromEnum <$>getLine 
    let
     alpha = map (subtract (fromEnum 'A')) s
     succed = map ((+(fromEnum 'A')).(flip mod 26).(+k)) alpha
    putStrLn (map toEnum succed :: String)