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;
namespace IO {
const int buffer_size = 1e5 + 5;
char buf[buffer_size], *S, *T;
bool flag_EOF;
inline char read_char() {
  if (S == T) T = (S = buf) + fread(buf, 1, buffer_size, stdin);
  return S != T ? *(S++) : EOF;
}
inline int read_int() {
  int flag = 1;
  char c = read_char();
  while (c < '0' || c > '9') {
    if (c == EOF) {
      flag_EOF = true;
      return 0;
    }
    flag = (c == '-' ? -1 : 1);
    c = read_char();
  }
  int x = 0;
  while (c >= '0' && c <= '9') {
    x = x * 10 + (c ^ 48);
    c = read_char();
  }
  return x * flag;
}
char st[13];
int _top;
void Write(int x) {
  if (!x) {
    putchar('0');
    return;
  }
  if (x < 0) {
    putchar('-');
    x = -x;
  }
  while (x) {
    st[++_top] = x % 10 + '0';
    x /= 10;
  }
  while (_top > 0) putchar(st[_top--]);
}
}  // namespace IO
struct node {
  int x, y, w;
  inline node(int a = 0, int b = 0, int v = 0) { x = a, y = b, w = v; }
};
int n, m, k;
const int max_n = 2e3 + 5;
const int max_m = 2e3 + 5;
const int max_k = 2e3 + 5;
vector<node> g[max_k];
const int max_cnt_ask = 2e3 + 5;
int X1[max_cnt_ask], Y1[max_cnt_ask], X2[max_cnt_ask], Y2[max_cnt_ask];
const int max_q = 1e6 + 5;
int id[max_q], cnt_ask;
namespace BIT {
long long val[max_n][max_m];
inline void modify(int x, int y, int v) {
  if (x > 0 && y > 0) {
    for (int i = x; i <= n; i += i & (-i))
      for (int j = y; j <= m; j += j & (-j)) val[i][j] += v;
  }
}
inline long long query(int x, int y) {
  long long res = 0;
  for (int i = x; i > 0; i -= i & (-i))
    for (int j = y; j > 0; j -= j & (-j)) res += val[i][j];
  return res;
}
}  // namespace BIT
long long ans[max_cnt_ask][max_k];
bool mark_off[max_k];
int main() {
  n = IO::read_int(), m = IO::read_int(), k = IO::read_int();
  for (int i = 1; i <= k; ++i) {
    int sz = IO::read_int();
    g[i].resize(sz);
    for (int j = 0; j < sz; ++j)
      g[i][j].x = IO::read_int(), g[i][j].y = IO::read_int(),
      g[i][j].w = IO::read_int();
  }
  int q = IO::read_int();
  for (int i = 1; i <= q; ++i) {
    char op;
    do {
      op = IO::read_char();
    } while (op != 'H' && op != 'K');
    if (op == 'H')
      id[i] = IO::read_int();
    else {
      ++cnt_ask;
      X1[cnt_ask] = IO::read_int(), Y1[cnt_ask] = IO::read_int(),
      X2[cnt_ask] = IO::read_int(), Y2[cnt_ask] = IO::read_int();
    }
  }
  for (int i = 1; i <= k; ++i) {
    for (int j = 0; j < int(g[i].size()); ++j)
      BIT::modify(g[i][j].x, g[i][j].y, g[i][j].w);
    for (int j = 1; j <= cnt_ask; ++j)
      ans[j][i] = BIT::query(X2[j], Y2[j]) - BIT::query(X2[j], Y1[j] - 1) -
                  BIT::query(X1[j] - 1, Y2[j]) +
                  BIT::query(X1[j] - 1, Y1[j] - 1);
    for (int j = 0; j < int(g[i].size()); ++j)
      BIT::modify(g[i][j].x, g[i][j].y, -g[i][j].w);
  }
  cnt_ask = 0;
  for (int i = 1; i <= q; ++i) {
    if (id[i] > 0)
      mark_off[id[i]] ^= 1;
    else {
      ++cnt_ask;
      long long Ans = 0;
      for (int j = 1; j <= k; ++j) {
        if (!mark_off[j]) Ans += ans[cnt_ask][j];
      }
      printf("%lld\n", Ans);
    }
  }
  return 0;
}