program schi;
type pnod=^nod;
     nod=record
                inf:integer;
                adr:pnod;
                end;
var p,q,nou:pnod;
    f,g:text;
    n,i,j,x:integer;
begin
assign(f,'schi.in'); reset(f);
assign(g,'schi.out'); rewrite(g);
read(f,n);
new(p);
p^.inf:=0;
q:=p;
for i:=1 to n do begin
            read(f,x);
            q:=p;
            for j:=1 to x-1 do q:=q^.adr;
            new(nou);
            nou^.inf:=i;
            if q^.adr<> nil then nou^.adr:=q^.adr;
            q^.adr:=nou;
            end;
{q:=p; }
{while (q<>nil) {and (q^.inf<>0)}{ do begin
      writeln(g,q^.inf);
      q:=q^.adr;
      end;}

for i:=1 to n do begin
         p:=p^.adr;
         writeln(g,p^.inf);
         end;
close(f); close(g);
end.