program ideone;
 
Const smax = 99;
Type simple = array[0..smax] of smallint;
Var data, sort, res:simple; i, n:smallint;
 
procedure writeArr(arr:simple; n:smallint);
Var i:smallint;
begin
	for i:=0 to n do write(arr[i], ' ');
	writeln();
end;
 
procedure delInArr(Var arr:simple; pos:smallint);
Var i:smallint; tArr:simple;
begin
	for i:=0 to pos-1 do tArr[i]:=arr[i];
	for i:=pos to smax do tArr[i]:=arr[i+1];
	arr:=tArr;
end;
 
procedure insInArr(Var arr:simple; pos, e:smallint);
Var i:smallint; tArr:simple;
begin
	for i:=0 to pos-1 do tArr[i]:=arr[i];
	tArr[pos]:=e;
	for i:=pos+1 to smax do tArr[i]:=arr[i+1];
	arr:=tArr;
end;
 
function bubbleSort(arr:simple; n:smallint):simple;
Var i, j, t:smallint;
begin
	for i:=0 to n-1 do
		for j:=0 to n-1 do
			if arr[j]<arr[j+1] then begin
				t:=arr[j];
				arr[j]:=arr[j+1];
				arr[j+1]:=t;
			end;
	bubbleSort:=arr;
end;
 
function isSame(arr:simple; num, lim:smallint):boolean;
Var i:smallint; same:boolean;
begin
	same:=False;
	i:=0;
	while (same<>True) and (i<=lim) do begin
	writeln('DEBAG: num = ', num, ', lim = ', lim);
		if arr[i]=num then same:=True;
		i:=i+1;
	end;
	isSame:=same;
end;
 
function findIndexMax(main, forbidden:simple; lim:smallint):smallint;
Var i, index:smallint;
begin
	index:=0;
	for i:=0 to n do 
		if (main[index]<main[i]) and (isSame(forbidden, i, lim)=False) then
			index:=i;
	writeln('DEBAG: index = ', index);
	findIndexMax:=index;
end;
 
function converter(mainA:simple):simple;
Var i:smallint; res:simple;
begin
	for i:=0 to n do begin
		res[i]:=findIndexMax(mainA, res, i-1);
	end;
	converter:=res;
end;
 
begin
read(n);
n:=n-1;
for i:=0 to n do read(data[i]);
res:=converter(data);
writeArr(res, n);
end.

cHJvZ3JhbSBpZGVvbmU7CgpDb25zdCBzbWF4ID0gOTk7ClR5cGUgc2ltcGxlID0gYXJyYXlbMC4uc21heF0gb2Ygc21hbGxpbnQ7ClZhciBkYXRhLCBzb3J0LCByZXM6c2ltcGxlOyBpLCBuOnNtYWxsaW50OwoKcHJvY2VkdXJlIHdyaXRlQXJyKGFycjpzaW1wbGU7IG46c21hbGxpbnQpOwpWYXIgaTpzbWFsbGludDsKYmVnaW4KCWZvciBpOj0wIHRvIG4gZG8gd3JpdGUoYXJyW2ldLCAnICcpOwoJd3JpdGVsbigpOwplbmQ7Cgpwcm9jZWR1cmUgZGVsSW5BcnIoVmFyIGFycjpzaW1wbGU7IHBvczpzbWFsbGludCk7ClZhciBpOnNtYWxsaW50OyB0QXJyOnNpbXBsZTsKYmVnaW4KCWZvciBpOj0wIHRvIHBvcy0xIGRvIHRBcnJbaV06PWFycltpXTsKCWZvciBpOj1wb3MgdG8gc21heCBkbyB0QXJyW2ldOj1hcnJbaSsxXTsKCWFycjo9dEFycjsKZW5kOwoKcHJvY2VkdXJlIGluc0luQXJyKFZhciBhcnI6c2ltcGxlOyBwb3MsIGU6c21hbGxpbnQpOwpWYXIgaTpzbWFsbGludDsgdEFycjpzaW1wbGU7CmJlZ2luCglmb3IgaTo9MCB0byBwb3MtMSBkbyB0QXJyW2ldOj1hcnJbaV07Cgl0QXJyW3Bvc106PWU7Cglmb3IgaTo9cG9zKzEgdG8gc21heCBkbyB0QXJyW2ldOj1hcnJbaSsxXTsKCWFycjo9dEFycjsKZW5kOwoKZnVuY3Rpb24gYnViYmxlU29ydChhcnI6c2ltcGxlOyBuOnNtYWxsaW50KTpzaW1wbGU7ClZhciBpLCBqLCB0OnNtYWxsaW50OwpiZWdpbgoJZm9yIGk6PTAgdG8gbi0xIGRvCgkJZm9yIGo6PTAgdG8gbi0xIGRvCgkJCWlmIGFycltqXTxhcnJbaisxXSB0aGVuIGJlZ2luCgkJCQl0Oj1hcnJbal07CgkJCQlhcnJbal06PWFycltqKzFdOwoJCQkJYXJyW2orMV06PXQ7CgkJCWVuZDsKCWJ1YmJsZVNvcnQ6PWFycjsKZW5kOwoKZnVuY3Rpb24gaXNTYW1lKGFycjpzaW1wbGU7IG51bSwgbGltOnNtYWxsaW50KTpib29sZWFuOwpWYXIgaTpzbWFsbGludDsgc2FtZTpib29sZWFuOwpiZWdpbgoJc2FtZTo9RmFsc2U7CglpOj0wOwoJd2hpbGUgKHNhbWU8PlRydWUpIGFuZCAoaTw9bGltKSBkbyBiZWdpbgoJd3JpdGVsbignREVCQUc6IG51bSA9ICcsIG51bSwgJywgbGltID0gJywgbGltKTsKCQlpZiBhcnJbaV09bnVtIHRoZW4gc2FtZTo9VHJ1ZTsKCQlpOj1pKzE7CgllbmQ7Cglpc1NhbWU6PXNhbWU7CmVuZDsKCmZ1bmN0aW9uIGZpbmRJbmRleE1heChtYWluLCBmb3JiaWRkZW46c2ltcGxlOyBsaW06c21hbGxpbnQpOnNtYWxsaW50OwpWYXIgaSwgaW5kZXg6c21hbGxpbnQ7CmJlZ2luCglpbmRleDo9MDsKCWZvciBpOj0wIHRvIG4gZG8gCgkJaWYgKG1haW5baW5kZXhdPG1haW5baV0pIGFuZCAoaXNTYW1lKGZvcmJpZGRlbiwgaSwgbGltKT1GYWxzZSkgdGhlbgoJCQlpbmRleDo9aTsKCXdyaXRlbG4oJ0RFQkFHOiBpbmRleCA9ICcsIGluZGV4KTsKCWZpbmRJbmRleE1heDo9aW5kZXg7CmVuZDsKCmZ1bmN0aW9uIGNvbnZlcnRlcihtYWluQTpzaW1wbGUpOnNpbXBsZTsKVmFyIGk6c21hbGxpbnQ7IHJlczpzaW1wbGU7CmJlZ2luCglmb3IgaTo9MCB0byBuIGRvIGJlZ2luCgkJcmVzW2ldOj1maW5kSW5kZXhNYXgobWFpbkEsIHJlcywgaS0xKTsKCWVuZDsKCWNvbnZlcnRlcjo9cmVzOwplbmQ7CgpiZWdpbgpyZWFkKG4pOwpuOj1uLTE7CmZvciBpOj0wIHRvIG4gZG8gcmVhZChkYXRhW2ldKTsKcmVzOj1jb252ZXJ0ZXIoZGF0YSk7CndyaXRlQXJyKHJlcywgbik7CmVuZC4=

NgoxMSAxMyAxMiAxNSAxNCAxMQ==

6
11 13 12 15 14 11