var f1,f2:text;
    n,i,ind,poz,min,j,nr:longint;
    a,v:array[1..5000] of longint;
    ok:boolean;
begin
        assign(f1,'subsir2.in');
        reset(f1);
        assign(f2,'subsir2.out');
        rewrite(f2);
        read(f1,n);
        for i:=1 to n do
                read(f1,a[i]);
        ok:=true;
        ind:=1;
        nr:=-maxlongint;
        while ok=true do
        begin
                ok:=false;
                min:=maxlongint;
                for i:=ind to n do
                        if (a[i]<=min)and(a[i]>=nr) then
                        begin
                                min:=a[i];
                                poz:=i;
                                ok:=true;
                        end;
                if ok=false then break;
                ind:=poz+1;
                inc(j);
                v[j]:=poz;
                nr:=a[j];
        end;
        writeln(f2,j);
        for i:=1 to j do write(f2,v[i],' ');
        close(f1);
        close(f2);
end.