var a:array[1..30010]of integer;
    n,i,j,z,x:integer;
begin
     assign(input,'schi.in');
     reset(input);
     assign(output,'schi.out');
     rewrite(output);
     readln(n);
     for i:=1 to n do
     begin
          readln(x);
          z:=z+1;
          for j:=z downto x+1 do
          begin
               a[j]:=a[j-1];
          end;
          a[x]:=i;
     end;
     for i:=1 to z do writeln(a[i]);
close(output);
end.