program nc1c22;
var v:array[1..5] of integer;
n:longint; i,c1,c2:byte;
begin
readln(n,c1,c2);
while (n<>0) or (c1<>0) or (c2<>0) do
begin
if (n=0) and (c1=0) then n:=c2 else begin
for i:=5 downto 1 do  begin
v[i]:=n mod 10; n:=n div 10;
if v[i]=c1 then v[i]:=c2;
end;
for i:=1 to 5 do n:=n*10+v[i]; end;
writeln(n);
readln(n,c1,c2);
end;
end.