var v:array[1..30001] of integer;
    i, j, n, poz:integer;
    f, g:text;

begin
assign (f, 'schi.in'); reset (f);
assign (g, 'schi.out'); rewrite (g);
read (f, n);
for i := 1 to n do
  begin
  read (f, poz);
  for j := i downto poz do v[j+1] := v[j];
  v[poz] := i;
  end;

for i := 1 to n do writeln (g, v[i]);

close (f); close (g);
end.