Imports System.Collections.Generic

Module Module1

    Sub Main()

        Dim N As Integer = CInt(Console.ReadLine())
        Dim S As String = Console.ReadLine()
        Dim i As Integer
        Dim wk As String = ""

        For i = 1 To Len(S)
            wk += cnv(Mid(S, i, 1), N)
        Next

        Console.WriteLine(wk)
        Console.ReadLine()

    End Sub

    Private Function cnv(s As String, n As Integer)

        Dim c As Integer

        c = Asc(s) - 64
        c += n
        If c > 26 Then
            c -= 26
        End If

        Return Chr(c + 64)

    End Function

End Module
