program abcd;
var
s: string[254];
c: string[1];
i: byte;
begin
Readln(s); { строка }
Readln(c); { буква }
repeat
i := Pos(c, s);
if i > 0 then
Delete(s,i,1);
until i = 0;
Writeln(s);
end.
