Problem: Note that the memory limit is unusual.

There are n chefs numbered 1, 2, …, n that must prepare dishes for a king. Chef i has skill i and initially has a dish of tastiness a_i where |a_i| ≤ i. Each chef has a list of other chefs that he is allowed to copy from. To stop chefs from learning bad habits, the king makes sure that chef i can only copy from chefs of larger skill.

There are a sequence of days that pass during which the chefs can work on their dish. During each day, there are two stages during which a chef can change the tastiness of their dish. 

  1. At the beginning of each day, each chef can choose to work (or not work) on their own dish, thereby multiplying the tastiness of their dish of their skill (a_i := i ⋅ a_i) (or doing nothing).
  2. After all chefs (who wanted) worked on their own dishes, each start observing the other chefs. In particular, for each chef j on chef i's list, chef i can choose to copy (or not copy) j's dish, thereby adding the tastiness of the j's dish to i's dish (a_i := a_i + a_j) (or doing nothing). It can be assumed that all copying occurs simultaneously. Namely, if chef i chooses to copy from chef j he will copy the tastiness of chef j's dish at the end of stage 1.



All chefs work to maximize the tastiness of their own dish in order to please the king.

Finally, you are given q queries. Each query is one of two types.

  1. 1 k l r — find the sum of tastiness a_l, a_{l+1}, …, a_{r} after the k-th day. Because this value can be large, find it modulo 10^9 + 7. 
  2. 2 i x — the king adds x tastiness to the i-th chef's dish before the 1-st day begins (a_i := a_i + x). Note that, because the king wants to see tastier dishes, he only adds positive tastiness (x > 0). 



Note that queries of type 1 are independent of each all other queries. Specifically, each query of type 1 is a scenario and does not change the initial tastiness a_i of any dish for future queries. Note that queries of type 2 are cumulative and only change the initial tastiness a_i of a dish. See notes for an example of queries.

Input

The first line contains a single integer n (1 ≤ n ≤ 300) — the number of chefs.

The second line contains n integers a_1, a_2, …, a_n (-i ≤ a_i ≤ i).

The next n lines each begin with a integer c_i (0 ≤ c_i < n), denoting the number of chefs the i-th chef can copy from. This number is followed by c_i distinct integers d (i < d ≤ n), signifying that chef i is allowed to copy from chef d during stage 2 of each day.

The next line contains a single integer q (1 ≤ q ≤ 2 ⋅ 10^5) — the number of queries.

Each of the next q lines contains a query of one of two types: 

  * 1 k l r (1 ≤ l ≤ r ≤ n; 1 ≤ k ≤ 1000); 
  * 2 i x (1 ≤ i ≤ n; 1 ≤ x ≤ 1000). 



It is guaranteed that there is at least one query of the first type.

Output

For each query of the first type, print a single integer — the answer to the query.

Example

Input


5
1 0 -2 -2 4
4 2 3 4 5
1 3
1 4
1 5
0
7
1 1 1 5
2 4 3
1 1 1 5
2 3 2
1 2 2 4
2 5 1
1 981 4 5


Output


57
71
316
278497818

Note

Below is the set of chefs that each chef is allowed to copy from:

  * 1: \{2, 3, 4, 5\} 
  * 2: \{3\} 
  * 3: \{4\} 
  * 4: \{5\} 
  * 5: ∅ (no other chefs)



Following is a description of the sample.

For the first query of type 1, the initial tastiness values are [1, 0, -2, -2, 4].

The final result of the first day is shown below: 

  1. [1, 0, -2, -2, 20] (chef 5 works on his dish). 
  2. [21, 0, -2, 18, 20] (chef 1 and chef 4 copy from chef 5). 



So, the answer for the 1-st query is 21 + 0 - 2 + 18 + 20 = 57.

For the 5-th query (3-rd of type 1). The initial tastiness values are now [1, 0, 0, 1, 4].

Day 1

  1. [1, 0, 0, 4, 20] (chefs 4 and 5 work on their dishes). 
  2. [25,0, 4, 24, 20] (chef 1 copies from chefs 4 and 5, chef 3 copies from chef 4, chef 4 copies from chef 5). 



Day 2

  1. [25, 0, 12, 96, 100] (all chefs but chef 2 work on their dish). 
  2. [233, 12, 108, 196, 100] (chef 1 copies from chefs 3, 4 and 5, chef 2 from 3, chef 3 from 4, chef 4 from chef 5).

So, the answer for the 5-th query is 12+108+196=316. 




It can be shown that, in each step we described, all chefs moved optimally.

Solution (in CPP):

Solution:
#include <algorithm>  
#include <iostream>  
#include <sstream>  
#include <string>  
#include <vector>  
#include <queue>  
#include <set>  
#include <map>  
#include <cstdio>  
#include <cstdlib>  
#include <cctype>  
#include <cmath>  
#include <cstring>
#include <list>  
#include <cassert>
#include <climits>
#include <bitset>
#include <chrono>
#include <random>
using namespace std;

#define PB push_back  
#define MP make_pair  
#define SZ(v) ((int)(v).size())  
#define FOR(i,a,b) for(int i=(a);i<(b);++i)  
#define REP(i,n) FOR(i,0,n)  
#define FORE(i,a,b) for(int i=(a);i<=(b);++i)  
#define REPE(i,n) FORE(i,0,n)  
#define FORSZ(i,a,v) FOR(i,a,SZ(v))  
#define REPSZ(i,v) REP(i,SZ(v))  
std::mt19937 rnd((int)std::chrono::steady_clock::now().time_since_epoch().count());
typedef long long ll;
ll gcd(ll a, ll b) { return b == 0 ? a : gcd(b, a % b); }


const int MAXN = 300;
const int MAXQ = 200000;
const int MOD = 1000000007;
void inc(int& a, int b) { if ((a += b) >= MOD) a -= MOD; }
int pw(int x, int n) { int ret = 1; while (true) { if (n & 1) ret = (ll)ret * x % MOD; if ((n >>= 1) == 0) return ret; x = (ll)x * x % MOD; } }
int calcinv(int x) { return pw(x, MOD - 2); }

const ll MODUNDOOVERFLOW = (1ULL << 63) / MOD * MOD;
vector<vector<int>> mmult(const vector<vector<int>>& a, const vector<vector<int>>& b) {
	int nrow = SZ(a), nmid = SZ(a[0]), ncol = SZ(b[0]); vector<vector<int>> ret(nrow, vector<int>(ncol));
	REP(i, nrow) REP(j, ncol) { ll sum = 0; REP(k, nmid) { sum += (ll)a[i][k] * b[k][j]; if (sum < 0) sum -= MODUNDOOVERFLOW; } ret[i][j] = sum % MOD; } return ret;
}
vector<vector<int>> mexp(vector<vector<int>> x, ll n) {
	int dim = SZ(x); vector<vector<int>> ret(dim, vector<int>(dim, 0)); REP(i, dim) ret[i][i] = 1;
	while (true) { if (n & 1) ret = mmult(ret, x); if ((n >>= 1) == 0) return ret; x = mmult(x, x); }
}

int n;
int startval[MAXN]; // abs(sval[i])<=(i+1)
vector<int> copyfrom[MAXN]; // copyfrom[i][j]>i
int nq;
int qkind[MAXQ], qt[MAXQ], ql[MAXQ], qr[MAXQ], qidx[MAXQ], qdelta[MAXQ];
int qans[MAXQ];

vector<int> copiedby[MAXN];
vector<vector<int>> A;
int eigenval[MAXN]; vector<int> eigenvec[MAXN];
vector<int> c[MAXN];
vector<int> eigenvecsum[MAXN];
int inveigenpw[MAXN][MAXN];

int curval[MAXN];
int tpos[MAXN]; // tpos[i] = time when value of chef i becomes positive

vector<int> alltpos;
int tposidx[MAXN];
int w[MAXN][MAXN];

struct BIT {
	int n; vector<int> val;
	void init(int _n) { n = _n; val = vector<int>(n + 1, 0); }
	void init(vector<int> v) { 
		n = SZ(v); val = vector<int>(n + 1, 0); 
		REP(k, n) { val[k + 1] = v[k]; int to = (k + 1) - ((k + 1) & -(k + 1)) - 1; if (to >= 0) inc(val[k + 1], MOD - v[to]); }
	}
	void mod(int idx, int by) { ++idx; while (idx <= n) { inc(val[idx], by); idx += idx & -idx; } }
	int get(int idx) { int ret = 0; ++idx; while (idx > 0) { inc(ret, val[idx]); idx -= idx & -idx; } return ret; }
};
BIT bit[MAXN];

void calctpos() {
	queue<int> q;
	REP(i, n) tpos[i] = INT_MAX;
	REP(i, n) if (curval[i] > 0) tpos[i] = 0, q.push(i);
	while (!q.empty()) {
		int at = q.front(); q.pop();
		for (int to : copiedby[at]) if (tpos[to] == INT_MAX) tpos[to] = tpos[at] + 1, q.push(to);
	}
	//printf("tpos:"); REP(i, n) if (tpos[i] == INT_MAX) printf(" oo"); else printf(" %d", tpos[i]); puts("");
	
	alltpos.clear();
	REP(i, n) if (tpos[i] != INT_MAX) alltpos.PB(tpos[i]);
	sort(alltpos.begin(), alltpos.end());
	alltpos.erase(unique(alltpos.begin(), alltpos.end()), alltpos.end());
	REP(i, n) tposidx[i] = tpos[i] == INT_MAX ? -1 : lower_bound(alltpos.begin(), alltpos.end(), tpos[i]) - alltpos.begin();

	REP(i, n) REP(j, n) w[i][j] = (ll)inveigenpw[j][tpos[i]] * c[i][j] % MOD;
	REP(j, n) {
		vector<int> want(SZ(alltpos), 0);
		REP(i, n) if (tposidx[i] != -1) want[tposidx[i]] = (want[tposidx[i]] + (ll)(curval[i] + MOD) * w[i][j]) % MOD;
		FORSZ(k, 1, want) inc(want[k], want[k - 1]);
		bit[j].init(want);
	}
}

vector<int> calceigenvec(vector<vector<int>>& A, int lambda) {
	// A*v=lambda*v -> (A-I*lambda)*v=0
	// this method only works when A is upper triangular and eigenvalue has multiplicity 1
	vector<int> ret(n, 0);
	int row = -1;
	for (int i = n - 1; i >= 0; --i) {
		int cur = A[i][i] - lambda; if (cur < 0) cur += MOD;
		if (cur == 0) {
			assert(row == -1);
			row = i;
			ret[row] = 1;
		} else {
			int sum = 0;
			REP(j, n) if (j != i && A[i][j] != 0) {
				assert(j > i);
				sum = (sum + (ll)A[i][j] * ret[j]) % MOD;
			}
			ret[i] = (ll)(MOD - sum) * calcinv(cur) % MOD;
		}
	}
	assert(row != -1);
	return ret;
}

vector<int> decompose(vector<int> v) {
	// decompose v into eigenvectors
	// this method only works if eigenvalues are distinct and eigenvectors form an upper triangular matrix with only ones on the diagonal
	vector<int> ret = v;
	for (int i = n - 1; i >= 0; --i) {
		REP(j, i) inc(ret[j], MOD - (ll)eigenvec[i][j] * ret[i] % MOD);
	}
	return ret;
}

int calcrange(int t,int l,int r) {
	int ret = 0;
	int idx = upper_bound(alltpos.begin(), alltpos.end(), t) - alltpos.begin() - 1;
	REP(j, n) {
		int cur = idx >= 0 ? bit[j].get(idx) : 0;
		/*REP(i, n) {
			int v = curval[i];
			if (v < 0) v += MOD;
			if (tpos[i] <= t) {
				//auto B = mexp(A, t - tpos[i]);
				//REP(j, n) ret[j] = (ret[j] + (ll)B[j][i] * v) % MOD;
				cur = (cur + (ll)v * w[i][j]) % MOD;
			}
		}*/
		cur = (ll)cur * pw(eigenval[j], t) % MOD;
		ret = (ret + (ll)(eigenvecsum[j][r + 1] + MOD - eigenvecsum[j][l]) * cur) % MOD;
	}
	FORE(i, l, r) if (tpos[i] > t) inc(ret, MOD + curval[i]);
	return ret;
}


void solve() {
	REP(i, n) copiedby[i].clear();
	REP(i, n) for (int j : copyfrom[i]) copiedby[j].PB(i);
		

	A = vector<vector<int>>(n, vector<int>(n, 0));
	REP(i, n) inc(A[i][i], i + 1);
	REP(i, n) for (int j : copyfrom[i]) inc(A[i][j], j + 1);
	//REP(i, n) { printf("A%d:", i); REP(j, n) printf(" %d", A[i][j]); puts(""); }

	REP(i, n) eigenval[i] = i + 1;
	REP(i, n) eigenvec[i] = calceigenvec(A, eigenval[i]);
	REP(i, n) { eigenvecsum[i] = eigenvec[i]; eigenvecsum[i].insert(eigenvecsum[i].begin(), 0); FORSZ(j, 1, eigenvecsum[i]) inc(eigenvecsum[i][j], eigenvecsum[i][j - 1]); }
	REP(i, n) { inveigenpw[i][0] = 1; if (1 < n) inveigenpw[i][1] = calcinv(eigenval[i]); FOR(j, 2, n) inveigenpw[i][j] = (ll)inveigenpw[i][j - 1] * inveigenpw[i][1] % MOD; }
	//REP(i, n) { printf("eigenval %d -> eigenvec:", eigenval[i]); REP(j, n) printf(" %d", eigenvec[i][j]); puts(""); }

	REP(i, n) { vector<int> e(n, 0); e[i] = 1; c[i] = decompose(e); }
	//REP(i, n) { printf("c%d:", i); REP(j, n) printf(" %d", c[i][j]); puts(""); }

	REP(i, n) curval[i] = startval[i];
	calctpos();

	REP(i, nq) {
		//printf("q%d:\n", i);
		if (qkind[i] == 1) {
			qans[i] = calcrange(qt[i], ql[i], qr[i]);
		}
		if (qkind[i] == 2) {
			bool waspos = curval[qidx[i]] > 0;
			curval[qidx[i]] += qdelta[i];
			bool ispos = curval[qidx[i]] > 0;
			if (ispos != waspos) {
				calctpos();
			} else if (tposidx[qidx[i]] != -1) {
				REP(j, n) bit[j].mod(tposidx[qidx[i]], (ll)qdelta[i] * w[qidx[i]][j] % MOD);
			}
		}
	}
}

void run() {
	scanf("%d", &n);
	REP(i, n) scanf("%d", &startval[i]);
	REP(i, n) { int cnt; scanf("%d", &cnt); copyfrom[i] = vector<int>(cnt); REP(j, cnt) scanf("%d", &copyfrom[i][j]), --copyfrom[i][j]; }
	scanf("%d", &nq);
	REP(i, nq) {
		scanf("%d", &qkind[i]);
		if (qkind[i] == 1) scanf("%d%d%d", &qt[i], &ql[i], &qr[i]), --ql[i], --qr[i];
		if (qkind[i] == 2) scanf("%d%d", &qidx[i], &qdelta[i]), --qidx[i];
	}
	solve();
	REP(i, nq) if (qkind[i] == 1) printf("%d\n", qans[i]);
}

int main() {
	run();
	return 0;
}