Problem: User ainta decided to make a new instant messenger called "aintalk". With aintalk, each user can chat with other people. User ainta made the prototype of some functions to implement this thing.

  1. login(u): User u logins into aintalk and becomes online. 
  2. logout(u): User u logouts and becomes offline. 
  3. add_friend(u, v): User u and user v become friends. It means, u and v can talk with each other. The friendship is bidirectional. 
  4. del_friend(u, v): Unfriend user u and user v. It means, u and v cannot talk with each other from then. 
  5. count_online_friends(u): The function returns the number of friends of user u who are online at the moment. 



Because the messenger is being tested by some users numbered from 1 to n, there is no register method. This means, at the beginning, some users may be online, and some users may have friends.

User ainta is going to make these functions, but before making the messenger public, he wants to know whether he is correct. Help ainta verify his code.

Input

The first line contains three space-separated integers n, m and q (1 ≤ n ≤ 50000; 1 ≤ m ≤ 150000; 1 ≤ q ≤ 250000) — the number of users, the number of pairs of friends, and the number of queries.

The second line contains an integer o (1 ≤ o ≤ n) — the number of online users at the beginning. The third line contains o space-separated integers x1, x2, ..., xo (1 ≤ xi ≤ n) — the ids of the online users. It is guaranteed that these values are distinct.

Each of the next m lines contains two space-separated integers ai and bi (1 ≤ ai, bi ≤ n; ai ≠ bi) — the ids of two users who are friends at the beginning. It is guaranteed there are no multiple friendship given in the input. Note that the friendship is bidirectional.

Next q lines describe the q queries in the format:

  * "O u" (1 ≤ u ≤ n) : Call online(u). It is guaranteed that user u was offline just before the function call. 
  * "F u" (1 ≤ u ≤ n) : Call offline(u). It is guaranteed that user u was online just before the function call. 
  * "A u v" (1 ≤ u, v ≤ n; u ≠ v) : Call add_friend(u, v). It is guaranteed that these two users weren't friends just before the function call. 
  * "D u v" (1 ≤ u, v ≤ n; u ≠ v) : Call del_friend(u, v). It is guaranteed that these two users were friends just before the function call. 
  * "C u" (1 ≤ u ≤ n) : Call count_online_friends(u) and print the result in a single line. 

Output

For each count_online_friends(u) query, print the required answer in a single line. 

Examples

Input

5 2 9
1
4
1 3
3 4
C 3
A 2 5
O 1
D 1 3
A 1 2
A 4 2
C 2
F 4
C 2


Output

1
2
1

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
using namespace std;
inline long long in() {
  int32_t x;
  scanf("%d", &x);
  return x;
}
inline long long lin() {
  long long x;
  scanf("%lld", &x);
  return x;
}
inline string get() {
  char ch[2000010];
  scanf("%s", ch);
  return ch;
}
inline void read(long long *a, long long n) {
  for (long long i = 0; i < n; i++) a[i] = in();
}
template <class blank>
inline void out(blank x) {
  cout << x << "\n";
  exit(0);
}
template <class blank>
inline void smin(blank &a, blank b) {
  a = min(a, b);
}
template <class blank>
inline void smax(blank &a, blank b) {
  a = max(a, b);
}
const long long maxn = 1e5 + 10;
const long long maxm = 1e6 + 10;
const long long maxlg = 21;
const long long base = 29;
const long long mod = 1e9 + 7;
const long long INF = 1e18 + 10;
const long long SQ = 450 + 5;
bool on[maxn];
long long deg[maxn];
long long cnt[maxn];
unordered_set<long long> fr[maxn], heavyFr[maxn];
int32_t main() {
  long long n = in(), m = in(), q = in();
  long long online = in();
  for (long long i = 0; i < online; i++) on[in()] = true;
  for (long long i = 0; i < m; i++) {
    long long v = in(), u = in();
    deg[v]++, deg[u]++;
    fr[v].insert(u), fr[u].insert(v);
  }
  for (long long i = 1; i <= n; i++) {
    if (deg[i] >= SQ) {
      for (auto u : fr[i]) heavyFr[u].insert(i);
    } else {
      for (auto u : fr[i]) cnt[u] += on[i];
    }
  }
  while (q--) {
    char tp = 0;
    do {
      tp = getchar();
    } while (!isalpha(tp));
    if (tp == 'O' || tp == 'F') {
      long long id = in();
      on[id] ^= 1;
      if (deg[id] < SQ) {
        for (auto u : fr[id]) cnt[u] += on[id] ? 1 : -1;
      }
    } else if (tp == 'A') {
      long long v = in(), u = in();
      if (deg[v] == SQ - 1) {
        for (auto u : fr[v]) {
          heavyFr[u].insert(v);
          cnt[u] += on[v] ? -1 : 0;
        }
      } else if (deg[v] < SQ) {
        cnt[u] += on[v];
      }
      if (deg[v] >= SQ - 1) heavyFr[u].insert(v);
      fr[v].insert(u);
      swap(v, u);
      if (deg[v] == SQ - 1) {
        for (auto u : fr[v]) {
          heavyFr[u].insert(v);
          cnt[u] += on[v] ? -1 : 0;
        }
      } else if (deg[v] < SQ) {
        cnt[u] += on[v];
      }
      if (deg[v] >= SQ - 1) heavyFr[u].insert(v);
      fr[v].insert(u);
      deg[v]++, deg[u]++;
    } else if (tp == 'D') {
      long long v = in(), u = in();
      fr[v].erase(u), fr[u].erase(v);
      deg[v]--, deg[u]--;
      if (deg[v] == SQ - 1) {
        for (auto u : fr[v]) {
          heavyFr[u].erase(v);
          cnt[u] += on[v];
        }
      } else if (deg[v] < SQ) {
        cnt[u] -= on[v];
      }
      if (deg[v] >= SQ - 1) heavyFr[u].erase(v);
      swap(v, u);
      if (deg[v] == SQ - 1) {
        for (auto u : fr[v]) {
          heavyFr[u].erase(v);
          cnt[u] += on[v];
        }
      } else if (deg[v] < SQ) {
        cnt[u] -= on[v];
      }
      if (deg[v] >= SQ - 1) heavyFr[u].erase(v);
    } else if (tp == 'C') {
      long long id = in();
      long long ret = cnt[id];
      for (auto u : heavyFr[id]) ret += on[u];
      cout << ret << "\n";
    }
  }
}