Module kkk
  Sub aa()
    Dim n As Integer
    Dim s As String, t As String
    Dim i As Integer
    Dim ans As String
    
    n = Console.ReadLine()
    s = Console.ReadLine()
    t = Console.ReadLine()
    
    For i = 1 To n
        ans = ans & Left(s, i) & Left(t, i)
    Next
  
  Console.WriteLineLine (ans)
  
  End Sub
End module
  
    