var n,i,j:longint;
    a,b:array[0..100000] of longint;
    
begin
  assign(input,'scmax.in');
  assign(output,'scmax.out');
  reset(input);
  rewrite(output);
  read(n);
  for i:=1 to n do read(a[i]);
  j:=0;
  for i:=1 to n do begin
    if a[i]>b[j] then begin
      inc(j);
      b[j]:=a[i];
    end;
    if (a[i]<b[j]) and (a[i]>b[j-1]) then 
      b[j]:=a[i];
  end;
  writeln(j);
  for i:=1 to j do write(b[i],' ');
end.