Public Class Program
  Shared Sub Main()
    Const Alphabet As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZ"
    Dim n As Integer = Integer.Parse(Console.ReadLine())
    Dim s As String = Console.ReadLine()
    Dim ans As String = ""
    For i As Integer = 0 To s.Length() - 1
      ans &= Alphabet(Array.IndexOf(Alphabet, s(i)) + n)
    Next
    Console.WriteLine(ans)
  End Sub
End Class