// Slower C++ solution:
#include <stdio.h>

#include <stdlib.h>

#include <cmath>

#include <string.h>

#include <iostream>

#include<algorithm>

#include <queue>

#include <vector>

#include<string>

//******************************************************

#define lrt (rt*2)

#define rrt  (rt*2+1)

#define LL long long

#define inf 0x3f3f3f3f

#define pi acos(-1.0)

#define exp 1e-8

const double temp=(1+sqrt(5))/2;

//***************************************************

#define eps             1e-8

#define inf             0x3f3f3f3f

#define INF             2e18

#define LL              long long

#define ULL             unsigned long long

#define PI              acos(-1.0)

#define pb              push_back

#define mk              make_pair



#define all(a)          a.begin(),a.end()

#define rall(a)         a.rbegin(),a.rend()

#define SQR(a)          ((a)*(a))

#define Unique(a)       sort(all(a)),a.erase(unique(all(a)),a.end())

#define min3(a,b,c)     min(a,min(b,c))

#define max3(a,b,c)     max(a,max(b,c))

#define min4(a,b,c,d)   min(min(a,b),min(c,d))

#define max4(a,b,c,d)   max(max(a,b),max(c,d))

#define max5(a,b,c,d,e) max(max3(a,b,c),max(d,e))

#define min5(a,b,c,d,e) min(min3(a,b,c),min(d,e))

#define Iterator(a)     __typeof__(a.begin())

#define rIterator(a)    __typeof__(a.rbegin())

#define FastRead        ios_base::sync_with_stdio(0);cin.tie(0)

#define CasePrint       pc('C'); pc('a'); pc('s'); pc('e'); pc(' '); write(qq++,false); pc(':'); pc(' ')

#define vi              vector <int>

#define vL              vector <LL>

#define For(I,A,B)      for(int I = (A); I < (B); ++I)

#define rFor(I,A,B)     for(int I = (A); I >= (B); --I)

#define Rep(I,N)        For(I,0,N)

using namespace std;

const int maxn=1e5+10;

int pre[maxn];

void iint()

{

    for(int i=0;i<maxn;i++) pre[i]=i;

}

int find(int x)

{

    return x==pre[x]?x:find(pre[x]);

}

void join(int x,int y)

{

    int fx=find(x),fy=find(y);

    if(fx!=fy)  pre[fx]=fy;

}

int main()

{

    int n,k,num;

    char str[5];

    while(cin>>n>>k)

    {

        LL sum=0;

        if(n+k==0)  break;

        iint();

        for(int i=2;i<=n;i++)

        {

            scanf("%d",&pre[i]);

        }

        while(k--)

        {

            scanf("%s%d",str,&num);

            if(str[0]=='M') pre[num]=num;

            else if(str[0]=='Q')    sum+=find(num);

        }

        cout<<sum<<endl;

    }

    return 0;

}

// Faster C++ solution for the same problem (measured speedup: 1.418713720379486x):
#include<cstdio>

#include<iostream>

#include<algorithm>

#include<cmath>



using namespace std;

const int maxn = 5e5+5;

int n,m;

int far[maxn];

int Rank[maxn];

int find(int x){

	if(far[x] == x)return x;

	else return find(far[x]);

}

void unite(int x,int y){

	x = find(x);

	y = find(y);

	if(x == y) return;

	

	if(Rank[x] < Rank[y]) far[x] = y;

	else

	{

		far[y] = x;

		if(Rank[x] == Rank[y]) Rank[x]++;

	}

}

bool check(int x,int y){

	return find(x) == find(y);

}

void init(int n){

	for(int i = 0;i <= n;i++)

	{

		far[i] = i;

		//Rank[i] = 0;

	}

}



int main()

{

	while(~scanf("%d %d",&n,&m) &&(m||n))

	{

		init(n);

		int a;

		long long ans = 0;

		for(int i = 2;i <= n;i++)

		{

			scanf("%d",&far[i]);

		}

		char c[3];

		for(int i = 0;i <m;i++)

		{

			scanf("%s %d",c,&a);

			if(c[0] == 'M') far[a] = a;

			else  

			{

				ans += find(a);

			}

		}

		printf("%lld\n",ans);

	}

	

	return 0;

}