lab_7_short

var
  s1, s2, result_s: string;
  k1, k2, sum: integer;

procedure add_word(var inp_s, outp_s: string; var k, sum_now: integer);
var
  new_word: boolean;
  lngth: integer;
begin
  new_word := false;
  lngth := length(inp_s);
  while (new_word = false) do
    if k <= lngth then
    begin
      if inp_s[k] <> ' ' then
      begin
        outp_s := outp_s + inp_s[k];
        inc(k);
        inc(sum_now);
      end
      else
      begin
        while inp_s[k] = ' ' do
        begin
          inc(k);
          inc(sum_now);

        end;
        outp_s := outp_s + ' ';
        new_word := true;

      end;
    end
    else
    begin
      if outp_s[length(outp_s)] <> ' ' then
        outp_s := outp_s + ' ';
      new_word := true;
    end;
end;

begin
  sum := 1;
  k1 := 1;
  k2 := 1;
  readln(s1);
  readln(s2);
  while sum <= length(s1) + length(s2) do
  begin
    add_word(s1, result_s, k1, sum);
    add_word(s2, result_s, k2, sum);
  end;
  writeln(result_s);
end.