program ski;
type sir=array[0..30001] of integer;
var n,i,j:integer;
    a,c:sir;
    o,d:text;
{procedure swap(i1,i2:integer)
  begin
    c[i1]:=c[i1]+c[i2];
    c[i2]:=c[i1]-c[i2];
    c[i1]:=c[i1]-c[i2];
  end;}
begin
assign(d,'schi.in');assign(o,'schi.out');
reset(d);rewrite(o);
read(d,n);
for i:=1 to n do
  begin
    read(d,a[i]);
    c[i]:=0;
  end;
c[0]:=0;c[n+1]:=0;a[0]:=0;
for i:=1 to n do
  begin
    if c[a[i]]=0 then c[a[i]]:=i
      else
        begin
          for j:=i downto a[i] do c[j+1]:=c[j];
          c[a[i]]:=i;
        end;
  end;
for i:=1 to n do writeln(o,c[i]);
close(o);close(d);
end.