program schi;
 var n,i:longint;
    a,poz:array[1..30000] of longint;
 begin
   assign(input,'schi.in');
   assign(output,'schi.out');
   reset(input);
   rewrite(output);
   readlln(n);
   for i:=1 to n do
     begin
       readln(a[i]);
       for j:=1 to i-1 do
          if a[j]>=a[i] then inc(a[j]);
     end;
   for i:=1 to n do
     poz[a[i]]:=i;
   for i:=1 to  n do write(poz[i],' ');
   close(output);
 end.