program nc1c2;
var n:string; c1,c2:char;
begin
readln(n);
while n<>'0 0 0' do
begin
c1:=n[pos(' ',n)+1]; delete(n,pos(' ',n),2);
c2:=n[pos(' ',n)+1]; delete(n,pos(' ',n),2);
while pos(c1,n)<>0 do n[pos(c1,n)]:=c2;
while n[1]='0' do delete(n,1,1);
writeln(n);
readln(n);
end;
end.