Imports System

Module Program
    Sub Main(args As String())
        Dim N As Integer = CInt(Console.ReadLine())
        Dim Str As String = Console.ReadLine()

        Dim s1 As String = Str.Substring(0, N)
        Dim s2 As String = Str.Substring(N + 1, N)

        Dim i As Integer
        Dim StrResult As String = ""
        For i = 0 To N - 1
            StrResult = StrResult + s1(i) + s2(i)
        Next

        Console.WriteLine(StrResult)

    End Sub
End Module
