var b,sol:array[1..30001] of integer;
    a:array[1..120001] of integer;
    i,w,n:longint;
    f,g:text;

procedure umplu(i,st,dr:longint);
 begin
  if (st<=dr) then begin
   a[i]:=dr-st+1;
   if st<>dr then begin
    umplu(i shl 1,st,(st+dr) shr 1);
    umplu(i shl 1+1, (st+dr) shr 1+1, dr);
   end;
  end;
 end;

procedure caut(poz,x,st,dr:longint);
 begin
  if st=dr then begin
   a[poz]:=0;
   w:=st;
  end
  else
   if a[poz shl 1]< x then begin
    dec(a[poz]);
    caut(poz shl 1+1,x-a[poz shl 1],(st+dr) shr 1+1, dr);
   end
   else begin
    dec(a[poz]);
    caut(poz shl 1, x, st, (st+dr) shr 1);
   end;
 end;

begin
 assign(f,'schi.in'); reset(f);
 assign(g,'schi.out'); rewrite(g);
 read(f,n);
 for i:=1 to n do
  read(f,b[i]);
 umplu(1,1,n);
 for i:=n downto 1 do begin
  caut(1,b[i], 1, n);
  sol[w]:=i;
 end;
 for i:=1 to n do
  writeln(g,sol[i]);
 close(f); close(g);
end.