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;
const long long mod = 1e9 + 7;
long double PI = acosl(-1);
const int inf = 1e8;
const long long INF = 1e13;
const int nmax = 5e4 + 5;
const int MAXLG = log2(nmax) + 1;
const int limit = 600;
bool onlin[nmax];
int sodonline[nmax];
unordered_set<int> g[nmax];
unordered_set<int> boro;
void sodoedit(int u, int v) {
  if (g[u].size() <= limit and onlin[u]) sodonline[v]++;
}
void borohoile(int u, int v) {
  if (g[u].size() == limit + 1 and onlin[u])
    for (int x : g[u])
      if (x != v) sodonline[x]--;
  if (g[u].size() == limit + 1) boro.insert(u);
}
void adej(int u, int v) {
  g[u].insert(v), g[v].insert(u);
  sodoedit(u, v), sodoedit(v, u);
  borohoile(u, v), borohoile(v, u);
}
void sodoedit2(int u, int v) {
  if (g[u].size() < limit and onlin[u]) sodonline[v]--;
}
void sodohoile(int u, int v) {
  if (g[u].size() == limit and onlin[u])
    for (int x : g[u])
      if (x != v) sodonline[x]++;
  if (g[u].size() == limit) boro.erase(u);
}
void removej(int u, int v) {
  g[u].erase(v), g[v].erase(u);
  sodoedit2(u, v), sodoedit2(v, u);
  sodohoile(u, v), sodohoile(v, u);
}
int query(int u) {
  int ret = 0;
  for (int v : boro)
    if (onlin[v])
      if (g[v].find(u) != g[v].end()) ret++;
  ret += sodonline[u];
  return ret;
}
int main() {
  ios::sync_with_stdio(false);
  cin.tie(0);
  int n, m, q;
  cin >> n >> m >> q;
  int o;
  cin >> o;
  for (int i = 0; i < o; i++) {
    int u;
    cin >> u;
    onlin[u] = true;
  }
  for (int i = 0; i < m; i++) {
    int u, v;
    cin >> u >> v;
    adej(u, v);
  }
  while (q--) {
    char ch;
    cin >> ch;
    if (ch == 'O') {
      int u;
      cin >> u;
      onlin[u] = true;
      if (g[u].size() <= limit)
        for (int v : g[u]) sodonline[v]++;
    } else if (ch == 'F') {
      int u;
      cin >> u;
      onlin[u] = false;
      if (g[u].size() <= limit)
        for (int v : g[u]) sodonline[v]--;
    } else if (ch == 'A') {
      int u, v;
      cin >> u >> v;
      adej(u, v);
    } else if (ch == 'D') {
      int u, v;
      cin >> u >> v;
      removej(u, v);
    } else {
      int u;
      cin >> u;
      cout << query(u) << "\n";
    }
  }
}