var a,b,r:array[1..3000] of byte;
j,i,n:integer;
min,min_old,temp:integer;
f1,f2:text;
k,kol:integer;
per:boolean;
begin
{зчитування}
assign(f1,'reklama.in');
reset(f1);
readln(f1,n);
for i:=1 to n do readln(f1,a[i],b[i]);
close(f1);
{сортування по a}
for i:=1 to n-1 do
for j:=1 to n-1 do
                if a[j]>a[j+1] then begin
                                    temp:=a[j];
                                    a[j]:=a[j+1];
                                    a[j+1]:=temp;

                                    temp:=b[j];
                                    b[j]:=b[j+1];
                                    b[j+1]:=temp;
                                    end;

kol:=0; i:=1; j:=1;
per:=false;
min_old:=0;
while i<=n do begin
       min:=b[i];
           while (a[i]<min)and(i<=n) do begin
                                        i:=i+1;
                                        if (b[i]<min) and (i<=n) then min:=b[i];
                                        end;
           i:=i-1;

if a[i]=min_old then per:=true else per:=false;
           if not(per) then
                       begin
                       kol:=kol+2;
                       r[kol-1]:=min-1;
                       r[kol]:=min;
                       end
                       else
                       begin
                       kol:=kol+1;
                       r[kol]:=min;
                       end;

i:=i+1;
j:=i;
min_old:=min;
end;
{виведення}
assign(f2,'reklama.out');
rewrite(f2);
writeln(f2,kol);
for i:=1 to kol do write(f2,r[i],' ');
close(f2);
end.