Module problemB

    Sub Main()
        Dim prm As Integer = Integer.Parse(Console.ReadLine)
        Dim s As Char() = Console.ReadLine.ToCharArray()

        For i As Integer = 0 To s.Length - 1
            s(i) = Chr(((Asc(s(i)) - 65 + prm) Mod 26) + 65)
        Next

        Console.WriteLine(New String(s))
    End Sub

End Module