program prgt;
type vec=array [1..50000] of integer;
var i,j,x,n,k:longint;
    a:vec;
    f,t:text;
begin
  assign(f,'schi.in');
  reset(f);
  assign(t,'schi.out');
  rewrite(t);
  read(f,n);
  {-----------------------}
  for i:=1 to n do
    begin
      read(f,x);
      k:=i;
      if a[x]<>0 then
          begin
            for j:=i+1 downto x do
              a[j+1]:=a[j];
            a[x]:=k;
          end
        else a[x]:=k;
    end;
  {-----------------------}
  for i:=1 to n do
    writeln(t,a[i]);
  close(f);
  close(t);
end.