var s1,s2:ansistring;
        d:int64;
begin
   readln(s1);
   readln(s2);
   while pos(s2,s1)<>0 do
   begin
      d:=pos(s2,s1);
      delete(s1,d,length(s2));
   end;
   write(s1);
   readln;
end.