Problem: On the 228-th international Uzhlyandian Wars strategic game tournament teams from each country are called. The teams should consist of 5 participants.

The team of Uzhlyandia will consist of soldiers, because there are no gamers.

Masha is a new minister of defense and gaming. The prime duty of the minister is to calculate the efficiency of the Uzhlandian army. The army consists of n soldiers standing in a row, enumerated from 1 to n. For each soldier we know his skill in Uzhlyandian Wars: the i-th soldier's skill is ai.

It was decided that the team will consist of three players and two assistants. The skills of players should be same, and the assistants' skills should not be greater than the players' skill. Moreover, it is important for Masha that one of the assistants should stand in the row to the left of the players, and the other one should stand in the row to the right of the players. Formally, a team is five soldiers with indexes i, j, k, l, p, such that 1 ≤ i < j < k < l < p ≤ n and ai ≤ aj = ak = al ≥ ap. 

The efficiency of the army is the number of different teams Masha can choose. Two teams are considered different if there is such i such that the i-th soldier is a member of one team, but not a member of the other team.

Initially, all players are able to be players. For some reasons, sometimes some soldiers become unable to be players. Sometimes some soldiers, that were unable to be players, become able to be players. At any time any soldier is able to be an assistant. Masha wants to control the efficiency of the army, so she asked you to tell her the number of different possible teams modulo 1000000007 (109 + 7) after each change. 

Input

The first line contains single integer n (1 ≤ n ≤ 105) — the number of soldiers in Uzhlyandia.

The second line contains n integers a1, a2, ..., an (1 ≤ ai ≤ 109) — the soldiers' skills.

The third line contains single integer m (1 ≤ m ≤ 105) — the number of changes.

The next m lines contain the changes, each change is described with two integers t and x (1 ≤ t ≤ 2, 1 ≤ x ≤ n) on a separate line. If t = 1, then the x-th soldier is unable to be a player after this change. If t = 2, then the x-th soldier is able to be a player after this change. 

It is guaranteed that before each query of the first type the soldier is able to be a player, and before each query of the second type the soldier is unable to be a player.

Output

Print m integers — the number of distinct teams after each change.

Print the answers modulo 1000000007 (109 + 7). 

Examples

Input

6
1 1 1 1 1 1
2
1 3
2 3


Output

1
6


Input

8
3 4 4 2 4 5 4 1
3
1 5
2 5
1 2


Output

1
6
2

Note

In the first example, after the first change the only team consists of soldiers [1, 2, 4, 5, 6]. After the second change any five soldiers can form a team.

In the first example after the first change the only team is soldiers [1, 2, 3, 7, 8]. After the second change the possible teams are: [1, 2, 3, 5, 7], [1, 2, 3, 5, 8], [1, 2, 3, 7, 8], [1, 2, 5, 7, 8], [1, 3, 5, 7, 8], [2, 3, 5, 7, 8]. After the third change the possible teams are: [1, 3, 5, 7, 8], [2, 3, 5, 7, 8].

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
using namespace std;
const int p = 1e9 + 7;
int n, va[100012], s[100012], tot, Q, c[100012], a[100012][2], id[100012];
vector<int> v[100012];
int rt[100012], ls[2000000], rs[2000000], he[2000000][2], su[2000000][2],
    tag[2000000][2], ans[100012], js, ct[2000000], anss, len[100012], tco;
inline void ins(int x) {
  for (int i = x; i <= n; i += (i & (-i))) c[i]++;
}
inline int ask(int x) {
  int ret = 0;
  for (int i = x; i; i -= (i & (-i))) ret += c[i];
  return ret;
}
inline void pushdown(int ind) {
  for (int i = 0; i < 2; i++) {
    su[ls[ind]][i] =
        (su[ls[ind]][i] + 1ll * tag[ind][i] * he[ls[ind]][i] % p) % p;
    su[rs[ind]][i] =
        (su[rs[ind]][i] + 1ll * tag[ind][i] * he[rs[ind]][i] % p) % p;
    tag[ls[ind]][i] = (tag[ls[ind]][i] + tag[ind][i]) % p;
    tag[rs[ind]][i] = (tag[rs[ind]][i] + tag[ind][i]) % p;
    tag[ind][i] = 0;
  }
}
inline void pushup(int ind) {
  ct[ind] = (ct[ls[ind]] + ct[rs[ind]]) % p;
  for (int i = 0; i < 2; i++)
    he[ind][i] = (he[ls[ind]][i] + he[rs[ind]][i]) % p,
    su[ind][i] = (su[ls[ind]][i] + su[rs[ind]][i]) % p;
}
void chnghe(int &ind, int l, int r, int x, int y, int yy, int op) {
  if (!ind) ind = ++js;
  if (l == r) {
    he[ind][op] = a[v[tco][l - 1]][op] * y;
    ct[ind] = y;
    su[ind][op] = yy * y;
    return;
  }
  int mid = (l + r) >> 1;
  pushdown(ind);
  if (x <= mid)
    chnghe(ls[ind], l, mid, x, y, yy, op);
  else
    chnghe(rs[ind], mid + 1, r, x, y, yy, op);
  pushup(ind);
}
void chngsu(int &ind, int l, int r, int al, int ar, int x, int op) {
  if (!ind) ind = ++js;
  if (al > ar) return;
  if (al <= l && r <= ar) {
    (su[ind][op] += 1ll * x * he[ind][op] % p) %= p;
    (tag[ind][op] += x) %= p;
    return;
  }
  int mid = (l + r) >> 1;
  pushdown(ind);
  if (al <= mid) chngsu(ls[ind], l, mid, al, ar, x, op);
  if (ar > mid) chngsu(rs[ind], mid + 1, r, al, ar, x, op);
  pushup(ind);
}
int askhe(int ind, int l, int r, int al, int ar, int op) {
  if (al > ar || !ind) return 0;
  if (al <= l && r <= ar) return he[ind][op];
  int mid = (l + r) >> 1, ret = 0;
  pushdown(ind);
  if (al <= mid) ret = (ret + askhe(ls[ind], l, mid, al, ar, op)) % p;
  if (ar > mid) ret = (ret + askhe(rs[ind], mid + 1, r, al, ar, op)) % p;
  return ret;
}
int asksu(int ind, int l, int r, int al, int ar, int op) {
  if (al > ar || !ind) return 0;
  if (al <= l && r <= ar) return su[ind][op];
  int mid = (l + r) >> 1, ret = 0;
  pushdown(ind);
  if (al <= mid) ret = (ret + asksu(ls[ind], l, mid, al, ar, op)) % p;
  if (ar > mid) ret = (ret + asksu(rs[ind], mid + 1, r, al, ar, op)) % p;
  return ret;
}
int askct(int ind, int l, int r, int al, int ar) {
  if (al > ar || !ind) return 0;
  if (al <= l && r <= ar) return ct[ind];
  int mid = (l + r) >> 1, ret = 0;
  pushdown(ind);
  if (al <= mid) ret += askct(ls[ind], l, mid, al, ar);
  if (ar > mid) ret += askct(rs[ind], mid + 1, r, al, ar);
  return ret;
}
inline void ada(int x) {
  tco = va[x];
  anss = (anss - ans[va[x]] + p) % p;
  (ans[va[x]] += 1ll * askhe(rt[va[x]], 1, len[va[x]], 1, id[x] - 1, 0) *
                 askhe(rt[va[x]], 1, len[va[x]], id[x] + 1, len[va[x]], 1) %
                 p) %= p;
  chngsu(rt[va[x]], 1, len[va[x]], id[x] + 1, len[va[x]], 1, 0);
  chngsu(rt[va[x]], 1, len[va[x]], id[x] + 1, len[va[x]], 1, 1);
  int pos = askct(rt[va[x]], 1, len[va[x]], 1, id[x]) + 1;
  (ans[va[x]] +=
   1ll * a[x][0] *
   (asksu(rt[va[x]], 1, len[va[x]], id[x] + 1, len[va[x]], 1) -
    1ll * (pos + 1) *
        askhe(rt[va[x]], 1, len[va[x]], id[x] + 1, len[va[x]], 1) % p +
    p) %
   p) %= p;
  (ans[va[x]] +=
   1ll * a[x][1] *
   (1ll * (pos - 1) * askhe(rt[va[x]], 1, len[va[x]], 1, id[x] - 1, 0) % p -
    asksu(rt[va[x]], 1, len[va[x]], 1, id[x] - 1, 0) + p) %
   p) %= p;
  chnghe(rt[va[x]], 1, len[va[x]], id[x], 1, 1ll * pos * a[x][0] % p, 0);
  chnghe(rt[va[x]], 1, len[va[x]], id[x], 1, 1ll * pos * a[x][1] % p, 1);
  anss = (anss + ans[va[x]]) % p;
}
inline void sub(int x) {
  tco = va[x];
  anss = (anss - ans[va[x]] + p) % p;
  int pos = askct(rt[va[x]], 1, len[va[x]], 1, id[x]);
  chnghe(rt[va[x]], 1, len[va[x]], id[x], 0, 1ll * pos * a[x][0] % p, 0);
  chnghe(rt[va[x]], 1, len[va[x]], id[x], 0, 1ll * pos * a[x][1] % p, 1);
  ans[va[x]] = (ans[va[x]] -
                1ll * a[x][1] *
                    (1ll * (pos - 1) *
                         askhe(rt[va[x]], 1, len[va[x]], 1, id[x] - 1, 0) % p -
                     asksu(rt[va[x]], 1, len[va[x]], 1, id[x] - 1, 0) + p) %
                    p +
                p) %
               p;
  ans[va[x]] =
      (ans[va[x]] -
       1ll * a[x][0] *
           (asksu(rt[va[x]], 1, len[va[x]], id[x] + 1, len[va[x]], 1) -
            1ll * (pos + 1) *
                askhe(rt[va[x]], 1, len[va[x]], id[x] + 1, len[va[x]], 1) % p +
            p) %
           p +
       p) %
      p;
  chngsu(rt[va[x]], 1, len[va[x]], id[x] + 1, len[va[x]], p - 1, 1);
  chngsu(rt[va[x]], 1, len[va[x]], id[x] + 1, len[va[x]], p - 1, 0);
  ans[va[x]] =
      (ans[va[x]] -
       1ll * askhe(rt[va[x]], 1, len[va[x]], 1, id[x] - 1, 0) *
           askhe(rt[va[x]], 1, len[va[x]], id[x] + 1, len[va[x]], 1) % p +
       p) %
      p;
  anss = (anss + ans[va[x]]) % p;
}
int main() {
  scanf("%d", &n);
  for (int i = 1; i <= n; i++) scanf("%d", &va[i]), s[++tot] = va[i];
  sort(s + 1, s + 1 + tot);
  tot = unique(s + 1, s + 1 + tot) - s - 1;
  for (int i = 1; i <= n; i++)
    va[i] = lower_bound(s + 1, s + 1 + tot, va[i]) - s;
  for (int i = 1; i <= n; i++) a[i][0] = ask(va[i]), ins(va[i]);
  for (int i = 1; i <= n; i++) c[i] = 0;
  for (int i = n; i; i--) a[i][1] = ask(va[i]), ins(va[i]);
  for (int i = 1; i <= n; i++) v[va[i]].push_back(i), id[i] = v[va[i]].size();
  for (int i = 1; i <= n; i++) len[i] = v[i].size();
  for (int i = 1; i <= n; i++) ada(i);
  scanf("%d", &Q);
  while (Q--) {
    int op, x;
    scanf("%d%d", &op, &x);
    if (op == 1)
      sub(x);
    else
      ada(x);
    printf("%d\n", anss);
  }
}