Module kkk

  Sub main()
    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 & Right(Left(s, i), 1) & Right(Left(t, i), 1)
    Next
  
  
  	Console.WriteLine(ans)
  
  End Sub

End module
  
    