#include<cstdio>
#include<vector>
#include<algorithm>
using namespace std;

const int maxn = 1e5 + 10;

int n, m;
vector<int> g[maxn];

int dep[maxn], son[maxn], siz[maxn], fa[maxn];
void dfs1(int u, int f, int deep)
{
   fa[u] = f;
   dep[u] = deep;
   siz[u] = 1;

   int max_son = -1;
   for (auto& v : g[u])
   	if (v != f)
   	{
   		dfs1(v, u, deep + 1);
   		siz[u] += siz[v];
   		if (siz[v] > max_son)
   			max_son = siz[v], son[u] = v;
   	}
}

int id[maxn], cnt, top[maxn], w[maxn];
void dfs2(int u, int topf)
{
   id[u] = ++cnt;
   top[u] = topf;

   if (son[u])
   {
   	dfs2(son[u], topf);
   	for (auto& v : g[u])
   		if (v != fa[u] && v != son[u])
   			dfs2(v, v);
   }
}

struct Node
{
   int l, r, sum;
   int tag;
};

Node tree[maxn * 4];

void build(int o, int l, int r)
{
   tree[o].l = l, tree[o].r = r;
   tree[o].tag = -1;
   if (l == r)
   	return;

   int mid = (l + r) / 2;
   build(o * 2, l, mid);
   build(o * 2 + 1, mid + 1, r);
}

void spread(int o)
{
   if (tree[o].tag != -1)
   {
   	tree[o].sum = tree[o].tag == 1 ? (tree[o].r - tree[o].l + 1) : 0;
   	if (tree[o].l != tree[o].r)
   		tree[o * 2].tag = tree[o * 2 + 1].tag = tree[o].tag;
   	tree[o].tag = -1;
   }
}

void update(int o)
{
   if (tree[o].l != tree[o].r)
   {
   	spread(o * 2), spread(o * 2 + 1);
   	tree[o].sum = tree[o * 2].sum + tree[o * 2 + 1].sum;
   }
}

void change(int o, int l, int r, int c)
{
   spread(o);

   if (tree[o].l == l && tree[o].r == r)
   {
   	tree[o].tag = c;
   	spread(o);
   	return;
   }

   int mid = (tree[o].l + tree[o].r) / 2;
   if (r <= mid)
   	change(o * 2, l, r, c);
   else if (l > mid)
   	change(o * 2 + 1, l, r, c);
   else
   	change(o * 2, l, mid, c), change(o * 2 + 1, mid + 1, r, c);

   update(o);
}

int ask(int o, int l, int r, int stau)
{
   spread(o);

   if (tree[o].l == l && tree[o].r == r)
   	return stau == 1 ? tree[o].sum : tree[o].r - tree[o].l + 1 - tree[o].sum;

   int mid = (tree[o].l + tree[o].r) / 2;
   if (r <= mid)
   	return ask(o * 2, l, r, stau);
   else if (l > mid)
   	return ask(o * 2 + 1, l, r, stau);
   else
   	return ask(o * 2, l, mid, stau) + ask(o * 2 + 1, mid + 1, r, stau);
}

void solve()
{
   scanf("%d", &n);
   for (int i = 2; i <= n; i++)
   {
   	int f;
   	scanf("%d", &f);
   	f++;

   	g[f].push_back(i), g[i].push_back(f);
   }

   dfs1(1, 1, 1);
   dfs2(1, 1);

   build(1, 1, n);

   scanf("%d", &m);
   while (m--)
   {
   	char cmd[20];
   	int u;
   	scanf("%s%d", cmd, &u);
   	u++