var p:integer;
    n, c1, c2:string;
Begin
read(n);readln;read(c1);readln;read(c2);
while ((n<>'0') and (c1<>'0') and (c2<>'0')) do
 begin
 p:=pos(c1, n);
 repeat
  delete(n, p, 1);
  insert(c2, n, p);
  p:=pos(c1, n);
 until p=0;
 writeln(n);
 read(n);readln;read(c1);readln;read(c2);
 end;
readln;
end.