Module Module1

    Sub Main()

        Dim N As Integer = CInt(Console.ReadLine())
        Dim tmp As String() = Split(Console.ReadLine(), " ")
        Dim S As String = tmp(0)
        Dim T As String = tmp(1)
        Dim R As String = ""

        For c As Integer = 1 To N
            R &= Mid(S, c, 1) & Mid(T, c, 1)
        Next

        Console.WriteLine(R)
        'Console.ReadLine()

    End Sub

End Module

