var fin,fout:text;

 procedure schi;
  var i,j,a,n:integer;
    v:array [1..30000] of integer;
  begin
   readln(fin,n);
   for i:=1 to n do
     begin
     readln(fin,a);
     if a=i then v[i]:=i
     else begin
          for j:=i-1 downto a do v[j+1]:=v[j];
          v[a]:=i;
          end;
     end;
   for i:=1 to n do writeln(fout,v[i]);
  end;

begin
  assign(fin,'schi.in');
  assign(fout,'schi.out');
  reset(fin);
  rewrite(fout);
  schi;
  close(fin);
  close(fout);
end.