var i,j,k,n,x,y:integer;
begin
readln(n);
if n > 0 then
begin
read(x);
k := 1;
for i := 2 to n do
begin
read(y);
if y < x then k := k + 1
else
begin
for j := 1 to k do write(k,' ');
k := 1;
end;
x := y;
end;
for j := 1 to k do write(k,' ');
end;
end.