program schiuri;
var p,n,i,k:integer;
a:array[1..30001] of integer;
f,g:text;
begin
  assign(f,'schi.in'); assign(g,'schi.out');
  reset(f); rewrite(g);
  read (f,n);
  for i:=1 to n do
  begin
    read (f,p);
    for k:=i+1 downto p do
      a[k]:=a[k-1];
    a[p]:=i;
  end;
  for i:=1 to n do
    writeln(g,a[i],' ');
  close(f); close(g);
end.