let id x = x

let n = Scanf.scanf "%d\n" id
let (s, t) = Scanf.scanf "%s %s\n" @@ fun s t -> (s, t)

let split = Str.split (Str.regexp "")

let solve = 
  List.combine (split s) (split t)
    |> List.map (fun (x, y) -> x ^ y)
    |> String.concat ""
    |> print_endline