program infoarena_scmax;
var n,k,i,j:longint; v,a:array[1..2000000] of longint; f,g:text;
begin
assign(f,'scmax.in');
assign(g,'scmax.out');
reset(f); rewrite(g); k:=1;
readln(f,n);for i:= 1 to n do read(f,v[i]);

for i:= 1 to n do

if (v[i]<v[i+1]) then begin a[k]:=v[i]; inc(k); end;
 if v[n]>v[n-1] then a[k]:=v[n];

writeln(g,k);
for i:= 1 to k do write(g,a[i],' ');
close(f); close(g);
end.