var
  s, text : string;
  i, j : integer;
begin
  readln(text);
  readln(s);
  i := 1;
  while i <= length(text) do
  begin
    if((i = 1) or (text[i - 1] = ' ')) and (text[i] = s[1]) then
    begin
      j := i;
      while (j <= length(text)) and (text[j] <> ' ') do
        j := j + 1;
      delete(text, i, j - i);
      insert(s, text, i);
    end;
    i := i + 1;
  end;
  writeln(text);
end.