program subsiraltfel;

var fi,fo:Text;
    i,j,n,t,nrc,poz,nrco:longint;
    q,v,p,co:array[1..1000000]of longint;
    ok:boolean;

begin
    assign(fi,'subsir.in'); reset(fi);
    assign(fo,'subsir.out'); rewrite(fo);

       readln(fi,n);
       for i:=1 to n do
         begin
             read(fi,v[i]);
             ok:=false;
             for j:=1 to nrc do
               if q[j]>=v[i] then
                 begin
                     ok:=true;
                     q[j]:=v[i];
                 end;
             if ok=false then
               begin
                   inc(nrc);
                   q[nrc]:=v[i];
               end;
             inc(poz);
             p[poz]:=nrc;
         end;
       writeln(fo,nrc);

    for j:=nrc downto 1 do
      begin
          for t:=poz downto 1 do
            if p[t]=j then
             begin
              inc(nrco);
              co[nrco]:=v[t];
              break;
            end;
      end;
    for j:=nrco downto 1 do
      write(fo,co[j],' ');

    close(fi); close(Fo);
end.