program cch(input,output,f1,f2);
var
 f1,f2:text;
 a:array[0..1000] of integer;
 i,j,k,q,n,x:integer;

begin
 assign(f1,'random.in');
 assign(f2,'random.out');
 reset(f1);
 rewrite(f2);
 readln(f1,n);
 q:=0;
 {for i:=1 to n do a[i]:=maxint;
 for i:=1 to n do
  begin
   read(f1,x);
   j:=1;
   while (j<=q)and(x>a[j]) do inc(j);
   if x<a[j] then begin
    for k:=q downto j do a[k+1]:=a[k];
    a[j]:=x;
    inc(q);
   end;
  end;}
 fillchar(a,sizeof (a),0);
 for i:=1 to n do
  begin
   read(f1,x);
   j:=q;
   while (j>=1)and(x<a[j]) do dec(j);
   if (x>a[j]) then begin
    for k:=q downto j+1 do a[k+1]:=a[k];
    a[j+1]:=x;
    inc(q);
   end;
  end;
 writeln(f2,q);
 for i:=1 to q-1 do write(f2,a[i],' ');
 writeln(f2,a[q]);
 close(f1);
 close(f2);
end.