{Винарский 16_30_г}
type
list=^node;
node=record
      elem: integer;
      next: list
     end;

var L: list; E,E1: integer;

procedure init(var L: list);
var x,y: list; c: integer;
  begin
    L:=nil;
    read(c);
    if(c<>0) then
      begin
        new(x);
        x^.elem:=c;
        x^.next:=nil;
        L:=x;
        read(c);
        while(c<>0) do
          begin
            new(x^.next);
            x:=x^.next;
            x^.next:=nil;
            x^.elem:=c;
            read(c);
          end;
      end;
  end;

procedure insert(var L: list;E1,E2: integer);
  begin
    if(L<>nil) then
      if(L^.elem=E1) then
        L^.elem:=E2
      else insert(L^.next,E1,E2);
  end;

procedure printL(L: list);
  begin
    if(L<>nil) then
      begin
        write(L^.elem,' ');
        printL(L^.next);
      end;
  end;

begin
init(L);
read(E,E1);
insert(L,E,E1);
printL(L);
end.