Problem: Serge, the chef of the famous restaurant "Salt, Pepper & Garlic" is trying to obtain his first Michelin star. He has been informed that a secret expert plans to visit his restaurant this evening.

Even though the expert's name hasn't been disclosed, Serge is certain he knows which dish from the menu will be ordered as well as what the taste preferences of the expert are. Namely, the expert requires an extremely precise proportion of salt, pepper and garlic powder in his dish.

Serge keeps a set of bottles with mixtures of salt, pepper and garlic powder on a special shelf in the kitchen. For each bottle, he knows the exact amount of each of the ingredients in kilograms. Serge can combine any number of bottled mixtures (or just use one of them directly) to get a mixture of particular proportions needed for a certain dish.

Luckily, the absolute amount of a mixture that needs to be added to a dish is so small that you can assume that the amounts in the bottles will always be sufficient. However, the numeric values describing the proportions may be quite large.

Serge would like to know whether it is possible to obtain the expert's favourite mixture from the available bottles, and if so—what is the smallest possible number of bottles needed to achieve that.

Furthermore, the set of bottles on the shelf may change over time as Serge receives new ones or lends his to other chefs. So he would like to answer this question after each such change.

For example, assume that expert's favorite mixture is 1:1:1 and there are three bottles of mixtures on the shelf:

$$$ \begin{array}{cccc} \hline Mixture & Salt & Pepper & Garlic powder \\\ \hline 1 & 10 & 20 & 30 \\\ 2 & 300 & 200 & 100 \\\ 3 & 12 & 15 & 27 \\\ \hline \end{array} $$$ Amount of ingredient in the bottle, kg 

To obtain the desired mixture it is enough to use an equivalent amount of mixtures from bottles 1 and 2. If bottle 2 is removed, then it is no longer possible to obtain it.

Write a program that helps Serge to solve this task!

Input

The first row contains three non-negative integers S_f, P_f and G_f (0 ≤ S_f, P_f, G_f; 0 < S_f+P_f+G_f ≤ 10^6) describing the amount of salt, pepper and garlic powder in the expert's favourite mixture. For any real α>0, (α{S_f}, α{P_f}, α{G_f}) also is an expert's favourite mixture.

In the second row, there is a positive integer N (number of changes on the shelf, N ≤ 100 000). You should assume that initially the shelf is empty.

Each of the next N rows describes a single change on the shelf: 

  * If a new bottle is added, the row contains capital letter A followed by three non-negative integers S_i, P_i and G_i (0 ≤ S_i, P_i, G_i; 0 < S_i+P_i+G_i ≤ 10^6) describing the amount of salt, pepper and garlic powder in the added bottle. Added bottles are numbered consecutively by unique integers starting from 1, that is, the i-th bottle corresponds to the i-th added bottle in the input data. 
  * If a particular bottle is removed from the shelf, the row contains capital letter R followed by the integer—the bottle number r_i. All values r_i in the removals are unique, r_i never exceeds total number of bottles added thus far. 

Output

Output N rows. The j-th row (1 ≤ j ≤ N) should contain the number x_j, the smallest number of bottles needed to prepare a mixture with the expert's favourite proportions of salt, pepper and garlic powder using the bottles available after the first j changes on the shelf, or 0 if it is not possible.

Scoring

Subtasks: 

  1. (13 points) N ≤ 50, 0 < S_i+P_i+G_i ≤ 10^2 
  2. (17 points) N ≤ 500, 0 < S_i+P_i+G_i ≤ 10^3 
  3. (30 points) N ≤ 5000, 0 < S_i+P_i+G_i ≤ 10^4 
  4. (40 points) No further constraints 

Example

Input


1 2 3
6
A 5 6 7
A 3 10 17
R 1
A 15 18 21
A 5 10 15
R 3


Output


0
2
0
2
1
1

Note

Pay attention that in the example, bottles 1 and 3 contain the same proportions of salt, pepper and garlic powder.

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
using namespace std;
bool DBG = 0;
const int dbg = 0;
using ii = pair<int, int>;
using cd = int64_t;
cd gcd(cd a, cd b) { return b ? gcd(b, a % b) : a; }
using _LD = long double;
struct ld {
  cd a, b;
  ld(cd a, cd b = 1) : a(a), b(b) { reduce(); }
  ld operator-() const { return {-a, b}; }
  ld& reduce() {
    if (a) {
      cd g = gcd(a < 0 ? -a : a, b);
      a /= g, b /= g;
    } else
      b = 1;
    return *this;
  }
  ld& operator+=(ld o) {
    a = a * o.b + b * o.a, b *= o.b;
    return reduce();
  }
  ld& operator-=(ld o) {
    a = a * o.b - b * o.a, b *= o.b;
    return reduce();
  }
  ld& operator*=(ld o) {
    a *= o.a, b *= o.b;
    return reduce();
  }
  ld operator*(ld o) const { return o *= *this; }
  ld operator+(ld o) const { return o += *this; }
  ld operator-(ld o) const {
    ld t = *this;
    return t -= o;
  }
  bool operator==(ld o) const { return a * o.b == b * o.a; }
  bool operator<(ld o) const { return (_LD(a) / b) < (_LD(o.a) / o.b); }
  bool operator<=(ld o) const { return *this == o || *this < o; }
  bool operator>(ld o) const { return !(*this <= o); }
  bool operator>=(ld o) const { return !(*this < o); }
  operator _LD() const { return _LD(a) / b; }
};
ld abs(ld a) { return {a.a < 0 ? -a.a : a.a, a.b}; }
using cord = ld;
using vi = vector<int>;
using vii = vector<ii>;
const ld eps = {0, 1};
struct po {
  cord X, Y;
  po operator-(po b) { return {X - b.X, Y - b.Y}; }
  po& operator-=(po b) {
    X -= b.X, Y -= b.Y;
    return *this;
  }
  po operator-() const { return {-X, -Y}; }
  ld cross(po b) const { return X * b.Y - Y * b.X; }
  bool operator<(const po& a) const {
    return (X == a.X) ? (Y < a.Y) : (X < a.X);
  }
  bool operator<=(const po& a) const {
    return (X == a.X) ? (Y <= a.Y) : (X <= a.X);
  }
  bool operator==(const po& a) const { return X == a.X && Y == a.Y; }
  operator complex<_LD>() const { return complex<_LD>(X, Y); }
  _LD arg() const { return ::arg(complex<_LD>(*this)); }
};
const _LD _EPS = 1e-9;
bool nb = 0;
struct acmp {
  bool operator()(const po& a, const po& b) const {
    if (a == b) return 0;
    _LD A = a.arg(), B = b.arg();
    return nb ? (A < B - _EPS) : (A < B);
  }
} _acmp;
bool argeq(po a, po b) { return (!_acmp(a, b)) && (!_acmp(b, a)); }
using ms = map<po, int, acmp>;
using poly = vector<po>;
ld abs(po a) { return a.X * a.X + a.Y * a.Y; }
using i64 = int64_t;
ostream& operator<<(ostream& os, ld first) {
  ld t = first;
  t *= {1, 1};
  return os << '(' << i64(t.a) << '/' << i64(t.b) << ')';
}
ostream& operator<<(ostream& os, po a) {
  return os << (arg(complex<_LD>(a)) * 180 / 3.14159265358979323846);
}
template <class T>
ostream& operator<<(ostream& os, vector<T> v) {
  os << '[';
  for (auto& V : v) os << V << ',';
  return os << '\b' << ']';
}
const ld ZERO = {0, 1};
int orient(po a, po b, po c) {
  cord r = (b - a).cross(c - a);
  return r == ZERO ? 0 : (r < ZERO ? -1 : 1);
}
const po Z = {0, 0};
int isfar(ms& m, ms::iterator it) {
  if (m.size() == 1) return 0;
  auto nx = it;
  ++nx;
  _LD theta = 0;
  if (nx == m.end()) nx = m.begin(), theta = 2 * 3.14159265358979323846;
  theta += nx->first.arg() - it->first.arg();
  if (abs(theta - 3.14159265358979323846) <= 1e-8 ||
      theta >= 3.14159265358979323846 + 1e-8)
    return 1;
  return 0;
}
ms::iterator prev(ms& m, ms::iterator it) {
  if (it == m.begin()) return --m.end();
  return --it;
}
void insert(ms& m, po p, int& far) {
  if (!m.empty()) {
    auto it = m.find(p);
    if (it != m.end()) return void(++it->second);
    far -= isfar(m, prev(m, m.lower_bound(p)));
    ++m[p];
    far += isfar(m, it = m.find(p));
    far += isfar(m, prev(m, it));
    if (far) far = 1;
  } else
    ++m[p], far = 1;
}
void remove(ms& m, po p, int& far) {
  if (m.size() == 1) {
    far = 1;
    if (!(--m[p])) m.erase(p);
    return;
  }
  auto it = prev(m.find(p));
  far -= isfar(m, it);
  if (!(--m[p])) m.erase(m.find(p));
  far |= isfar(m, prev(m, m.lower_bound(p)));
  if (far) far = 1;
}
struct S {
  int zcnt, far;
  int64_t ls;
  po z;
  map<po, int, acmp> ps;
  S(po z) : zcnt(0), far(1), ls(0), z(z) {}
  void insert(po p) {
    if (DBG) cout << "inserting " << p - z << endl;
    if ((p -= z) == Z) return void(++zcnt);
    auto it = ps.find(-p);
    if (it != ps.end()) {
      if (DBG) cout << "ls receives " << it->second << endl;
      ls += it->second;
    } else if (DBG)
      cout << "ls receieves 0\n";
    ::insert(ps, p, far);
  }
  void erase(po p) {
    if (DBG) cout << "erasing " << p - z << endl;
    if ((p -= z) == Z) return void(--zcnt);
    auto it = ps.find(-p);
    if (DBG) cout << "ls -= ps.find(" << -p << ")\n";
    if (it != ps.end()) {
      if (DBG) cout << "ls loses " << it->second << endl;
      ls -= it->second;
    } else if (DBG)
      cout << "ls loses 0\n";
    ::remove(ps, p, far);
  }
  int query() {
    if (DBG) cout << "zcnt=" << zcnt << ",ls=" << ls << endl;
    if (zcnt) return 1;
    if (ls) return 2;
    int N = ps.size();
    if (N < 3) return 0;
    return far ? 0 : 3;
  }
};
po cnv(int s, int p, int g) { return {ld(s, s + p + g), ld(p, s + p + g)}; }
int main() {
  if (dbg)
    freopen("inb.txt", "r", stdin);
  else
    cin.tie(0)->sync_with_stdio(0);
  int s, p, g;
  cin >> s >> p >> g;
  S d(cnv(s, p, g));
  int n;
  cin >> n;
  if (n <= 5000) nb = 1;
  char op;
  vector<tuple<int, int, int>> bs;
  for (auto i = 0; i != n; ++i) {
    if (DBG) cout << "i=" << i << endl;
    cin >> op;
    if (op == 'A') {
      cin >> s >> p >> g;
      bs.emplace_back(s, p, g);
      d.insert(cnv(s, p, g));
    } else {
      cin >> s;
      tie(s, p, g) = bs[s - 1];
      d.erase(cnv(s, p, g));
    }
    cout << d.query() << '\n';
  }
  return 0;
}