Problem: Like all children, Alesha loves New Year celebration. During the celebration he and his whole family dress up the fir-tree. Like all children, Alesha likes to play with garlands — chains consisting of a lightbulbs.

Alesha uses a grid field sized n × m for playing. The rows of the field are numbered from 1 to n from the top to the bottom and columns are numbered from 1 to m from the left to the right.

Alesha has k garlands which he places at the field. He does so in the way such that each lightbulb of each garland lies in the center of some cell in the field, and each cell contains at most one lightbulb. Of course lightbulbs, which are neighbours in some garland, appears in cells neighbouring by a side.

<image>

The example of garland placing.

Each garland is turned off or turned on at any moment. If some garland is turned on then each of its lightbulbs is turned on, the same applies for garland turned off. Each lightbulb in the whole garland set is unique, and thus, being turned on, brings Alesha some pleasure, described by an integer value. Turned off lightbulbs don't bring Alesha any pleasure.

Alesha can turn garlands on and off and wants to know the sum of pleasure value which the lightbulbs, placed in the centers of the cells in some rectangular part of the field, bring him. Initially all the garlands are turned on.

Alesha is still very little and can't add big numbers. He extremely asks you to help him.

Input

The first line of the input contains three integers n, m and k (1 ≤ n, m, k ≤ 2000) — the number of field rows, the number of field columns and the number of garlands placed at the field respectively.

Next lines contains garlands set description in the following format:

The first line of a single garland description contains a single integer len (1 ≤ len ≤ 2000) — the number of lightbulbs in the garland.

Each of the next len lines contains three integers i, j and w (1 ≤ i ≤ n, 1 ≤ j ≤ m, 1 ≤ w ≤ 109) — the coordinates of the cell containing a lightbullb and pleasure value Alesha gets from it if it is turned on. The lightbulbs are given in the order they are forming a chain in the garland. It is guaranteed that neighbouring lightbulbs are placed in the cells neighbouring by a side.

The next line contains single integer q (1 ≤ q ≤ 106) — the number of events in Alesha's game. The next q lines describes events in chronological order. The i-th of them describes the i-th event in the one of the following formats:

  * SWITCH i — Alesha turns off i-th garland if it is turned on, or turns it on if it is turned off. It is guaranteed that 1 ≤ i ≤ k. 
  * ASK x1 y1 x2 y2 — Alesha wants to know the sum of pleasure values the lightbulbs, placed in a rectangular part of the field. Top-left cell of a part has coordinates (x1, y1) and right-bottom cell has coordinates (x2, y2). It is guaranteed that 1 ≤ x1 ≤ x2 ≤ n and 1 ≤ y1 ≤ y2 ≤ m. There is no more than 2000 events of this type in the input. 



All the numbers in the input are integers.

Please note that the input is quite large, so be careful while using some input ways. In particular, it's not recommended to use cin in codes on C++ and class Scanner in codes on Java.

Output

For each ASK operation print the sum Alesha wants to know in a separate line. Print the answers in chronological order.

Examples

Input

4 4 3
5
1 1 2
1 2 3
2 2 1
2 1 4
3 1 7
4
1 3 1
2 3 3
2 4 3
1 4 1
7
4 1 1
4 2 9
3 2 8
3 3 3
4 3 4
4 4 1
3 4 1
2
ASK 2 2 3 3
ASK 1 1 4 4


Output

15
52


Input

4 4 1
8
4 1 1
3 1 2
2 1 1
1 1 7
1 2 5
2 2 4
2 3 1
1 3 1
3
ASK 1 1 3 2
SWITCH 1
ASK 1 1 3 2


Output

19
0

Note

<image>

This image illustrates the first sample case.

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
using namespace std;
long long gcd(long long a, long long b) { return b == 0 ? a : gcd(b, a % b); }
const int MAXH = 2000;
const int MAXW = 2000;
const int MAXN = 2000;
const int MAXLEN = 2000;
const int MAXSLEN = MAXN * MAXLEN;
const int MAXQ = 1000000;
const int MAXQASK = 2000;
const int SZ = 17;
const int MAXBH = (MAXH + SZ - 1) / SZ;
const int MAXBW = (MAXW + SZ - 1) / SZ;
int h, w, n;
int len[MAXN];
int slen[MAXN + 1];
int x[MAXSLEN], y[MAXSLEN], z[MAXSLEN];
int sb[MAXN + 1];
int bx[MAXSLEN], by[MAXSLEN];
long long bval[MAXSLEN];
int bkey[MAXBH][MAXBW], bid[MAXBH][MAXBW];
int gidx[MAXH][MAXW];
int gz[MAXH][MAXW];
bool on[MAXN];
long long bgz[MAXBH][MAXBW];
int nq;
char command[10];
void toggle(int idx) {
  on[idx] = !on[idx];
  if (!on[idx])
    for (int i = (sb[idx]); i < (sb[idx + 1]); ++i)
      bgz[bx[i]][by[i]] -= bval[i];
  if (on[idx])
    for (int i = (sb[idx]); i < (sb[idx + 1]); ++i)
      bgz[bx[i]][by[i]] += bval[i];
}
long long calc(int lx, int ly, int hx, int hy) {
  long long ret = 0;
  while (lx < hx && lx % SZ != 0) {
    for (int y = (ly); y < (hy); ++y) {
      int idx = gidx[lx][y];
      if (idx != -1 && on[idx]) ret += gz[lx][y];
    }
    ++lx;
  }
  while (lx < hx && hx % SZ != 0) {
    --hx;
    for (int y = (ly); y < (hy); ++y) {
      int idx = gidx[hx][y];
      if (idx != -1 && on[idx]) ret += gz[hx][y];
    }
  }
  while (ly < hy && ly % SZ != 0) {
    for (int x = (lx); x < (hx); ++x) {
      int idx = gidx[x][ly];
      if (idx != -1 && on[idx]) ret += gz[x][ly];
    }
    ++ly;
  }
  while (ly < hy && hy % SZ != 0) {
    --hy;
    for (int x = (lx); x < (hx); ++x) {
      int idx = gidx[x][hy];
      if (idx != -1 && on[idx]) ret += gz[x][hy];
    }
  }
  if (lx == hx || ly == hy) return ret;
  lx /= SZ, hx /= SZ, ly /= SZ, hy /= SZ;
  for (int x = (lx); x < (hx); ++x)
    for (int y = (ly); y < (hy); ++y) ret += bgz[x][y];
  return ret;
}
void run() {
  scanf("%d%d%d", &h, &w, &n);
  slen[0] = 0;
  for (int i = (0); i < (n); ++i) {
    scanf("%d", &len[i]);
    slen[i + 1] = slen[i] + len[i];
    for (int j = (0); j < (len[i]); ++j)
      scanf("%d%d%d", &x[slen[i] + j], &y[slen[i] + j], &z[slen[i] + j]),
          --x[slen[i] + j], --y[slen[i] + j];
  }
  memset(gidx, -1, sizeof(gidx));
  memset(gz, 0, sizeof(gz));
  memset(bgz, 0, sizeof(bgz));
  memset(bkey, -1, sizeof(bkey));
  sb[0] = 0;
  for (int i = (0); i < (n); ++i) {
    sb[i + 1] = sb[i];
    on[i] = true;
    for (int j = (slen[i]); j < (slen[i + 1]); ++j) {
      int cbx = x[j] / SZ, cby = y[j] / SZ;
      gidx[x[j]][y[j]] = i, gz[x[j]][y[j]] = z[j], bgz[cbx][cby] += z[j];
      if (bkey[cbx][cby] != i) {
        bkey[cbx][cby] = i;
        int id = bid[cbx][cby] = sb[i + 1]++;
        bx[id] = cbx, by[id] = cby, bval[id] = 0;
      }
      bval[bid[cbx][cby]] += z[j];
    }
  }
  scanf("%d", &nq);
  for (int qi = (0); qi < (nq); ++qi) {
    scanf("%s", command);
    if (strcmp(command, "SWITCH") == 0) {
      int idx;
      scanf("%d", &idx);
      --idx;
      toggle(idx);
    }
    if (strcmp(command, "ASK") == 0) {
      int lx, ly, hx, hy;
      scanf("%d%d%d%d", &lx, &ly, &hx, &hy);
      --lx, --ly;
      long long ret = calc(lx, ly, hx, hy);
      printf("%lld\n", ret);
    }
  }
}
int main() {
  run();
  return 0;
}