lab_7_very_short

var
  s1, s2, result_s: string;

procedure process_strings(var inp_s: string; k, k3: integer; res_s: string);
begin
  while (k <= length(inp_s)) and (inp_s[k] <> ' ')  do
  begin
    res_s := res_s + inp_s[k];
    k3 := k3 + 1;
    k := k + 1;
  end;
  if res_s[k3] <> ' ' then
  begin
    res_s := res_s + ' ';
    k3 := k3 + 1;
  end;
  k := k + 1;
end;

function shake_words(var inp_s1, inp_s2: string): string;
var
  k1, k2, k3: integer;
  result_s: string;

begin
  k1 := 1;
  k2 := 1;
  k3 := 1;
  result_s := ' ';
  while k3 <= length(inp_s1) + length(inp_s2) do
  begin
    process_strings(inp_s1, k1, k3, result_s);
    process_strings(inp_s2, k2, k3, result_s);
    delete(result_s, 1, 1);
  end;
  shake_words := result_s;
end;

begin
  readln(s1);
  readln(s2);
  result_s := shake_words(s1, s2);
  writeln(result_s);
end.