Problem: Mike has discovered a new way to encode permutations. If he has a permutation P = [p1, p2, ..., pn], he will encode it in the following way:

Denote by A = [a1, a2, ..., an] a sequence of length n which will represent the code of the permutation. For each i from 1 to n sequentially, he will choose the smallest unmarked j (1 ≤ j ≤ n) such that pi < pj and will assign to ai the number j (in other words he performs ai = j) and will mark j. If there is no such j, he'll assign to ai the number  - 1 (he performs ai = - 1). 

Mike forgot his original permutation but he remembers its code. Your task is simple: find any permutation such that its code is the same as the code of Mike's original permutation.

You may assume that there will always be at least one valid permutation.

Input

The first line contains single integer n (1 ≤ n ≤ 500 000) — length of permutation.

The second line contains n space-separated integers a1, a2, ..., an (1 ≤ ai ≤ n or ai = - 1) — the code of Mike's permutation.

You may assume that all positive values from A are different.

Output

In first and only line print n numbers p1, p2, ..., pn (1 ≤ pi ≤ n) — a permutation P which has the same code as the given one. Note that numbers in permutation are distinct.

Examples

Input

6
2 -1 1 5 -1 4


Output

2 6 1 4 5 3


Input

8
2 -1 4 -1 6 -1 8 -1


Output

1 8 2 7 3 6 4 5

Note

For the permutation from the first example:

i = 1, the smallest j is 2 because p2 = 6 > p1 = 2.

i = 2, there is no j because p2 = 6 is the greatest element in the permutation.

i = 3, the smallest j is 1 because p1 = 2 > p3 = 1.

i = 4, the smallest j is 5 (2 was already marked) because p5 = 5 > p4 = 4.

i = 5, there is no j because 2 is already marked.

i = 6, the smallest j is 4 because p4 = 4 > p6 = 3.

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
using namespace std;
int n, *sv, *sv2, *ar, *ar2, *ar3, *dot, yk, lg, inf = 1e9, va;
bool *us;
vector<int> tout;
void recalc(int nu) { dot[nu] = min(dot[nu * 2], dot[nu * 2 + 1]); }
void build(int nu, int l, int r) {
  if (l == r)
    dot[nu] = ar2[l];
  else {
    int mid = (l + r) / 2;
    build(nu * 2, l, mid);
    build(nu * 2 + 1, mid + 1, r);
    recalc(nu);
  }
}
void cha(int nu, int l, int r) {
  if (l == r)
    dot[nu] = inf;
  else {
    int mid = (l + r) / 2;
    if (lg <= mid)
      cha(nu * 2, l, mid);
    else
      cha(nu * 2 + 1, mid + 1, r);
    recalc(nu);
  }
}
int que(int nu, int l, int r) {
  if (l == r) {
    if (dot[nu] < va)
      return l;
    else
      return l + 1;
  } else {
    int mid = (l + r) / 2;
    if (dot[nu * 2] < va)
      return que(nu * 2, l, mid);
    else
      return que(nu * 2 + 1, mid + 1, r);
  }
}
void dfs(int v, int pr) {
  us[v] = 1;
  lg = ar3[v];
  cha(1, 0, n - 1);
  ar2[lg] = inf;
  while (1 == 1) {
    va = sv[v];
    if (va == -2) va = n;
    int cu = que(1, 0, n - 1);
    if (cu <= ar[v])
      dfs(ar2[cu], v);
    else
      break;
  }
  if (sv2[v] != -1)
    if (us[sv2[v]] == 0) dfs(sv2[v], v);
  tout.push_back(v);
}
int main() {
  scanf("%d", &n);
  yk = n - 1;
  sv = new int[n], sv2 = new int[n], ar = new int[n], ar2 = new int[n],
  ar3 = new int[n], dot = new int[n * 4], us = new bool[n];
  for (int a = 0; a < n; a++) {
    scanf("%d", &sv[a]);
    sv[a]--;
    sv2[a] = -1, us[a] = 0;
  }
  for (int a = 0; a < n; a++) {
    ar[a] = yk;
    if (sv[a] != -2) {
      sv2[sv[a]] = a;
      ar2[yk] = sv[a];
      us[sv[a]] = 1, yk--;
    }
  }
  for (int a = 0; a < n; a++) {
    if (us[a] == 0) {
      ar2[yk] = a, yk--;
    }
    us[a] = 0;
  }
  for (int a = 0; a < n; a++) ar3[ar2[a]] = a;
  build(1, 0, n - 1);
  for (int a = 0; a < n; a++)
    if (us[a] == 0) dfs(a, -1);
  int an[n];
  for (int a = 0; a < n; a++) an[tout[a]] = a + 1;
  for (int a = 0; a < n; a++) printf("%d ", an[a]);
}