open String
let o, e = Scanf.scanf " %s %s" @@ fun a b -> a, b
let _ =
  iteri (fun i c -> Printf.printf "%c%c" o.[i] c) e;
  if length o > length e then print_char o.[length o - 1];
  print_newline ()