#define _CRT_SECURE_NO_WARNINGS
// #define _GLIBCXX_DEBUG
#include <bits/stdc++.h>
using namespace std;
typedef long long ll;
// #define int ll
typedef vector<int> vi;
typedef vector<vi> vvi;
typedef pair<int,int> pii;
#define all(c) begin(c), end(c)
#define range(i,a,b) for(int i=a; i<int(b); i++)
#define rep(i,b) range(i,0,b)
#define rangei(i,a,b) for(int a=a;i<=int(b);i++)
#define repi(i,b) rangei(i,1,b)
#define pb push_back
#define eb emplace_back
#define mp make_pair
#define mt make_tuple
template<class T> ostream & operator << (ostream &os, vector<T> const &);
template<int n, class...T>
typename enable_if<(n>=sizeof...(T))>::type
_ot(ostream &, tuple<T...> const &){}
template<int n, class...T>
typename enable_if<(n< sizeof...(T))>::type
_ot(ostream &os, tuple<T...> const &t){
    os << (n==0?"":" ") << get<n>(t); _ot<n+1>(os, t);
}
template<class...T>
ostream & operator << (ostream &os, tuple<T...> const &t){
    _ot<0>(os, t); return os;
}
template<class T, class U>
ostream & operator<<(ostream &os, pair<T,U> const &p){
    return os << "(" << p.first << ", " << p.second << ") ";
}
template<class T>
ostream & operator<<(ostream &os, vector<T> const &v){
    rep(i,v.size()) os << v[i] << (i+1==(int)v.size()?"":" "); return os;
}
#ifdef DEBUG
#define dump(...) (cerr << #__VA_ARGS__ << " = " << mt(__VA_ARGS__) \
                   << " [" << __LINE__ << "]" << endl)
#else
#define dump(...)
#endif
void fastios(){
    ios_base::sync_with_stdio(0);
    cin.tie(0);
    // #define endl '\n'
}
template<class T>
size_t uniq(vector<T> &v){
    sort(v.begin(), v.end());
    v.erase(unique(v.begin(), v.end()), v.end());
    return v.size();
}
template<class T>
size_t uniq(T *l, size_t n){
    sort(l,l+n);
    return unique(l,l+n) - l;
}
#define mems(arr,val) memset(arr,val,sizeof(arr));
int const mod = 1000000007;
int const inf = numeric_limits<int>::max()/8;

struct HeavyLightDecomposition {
    int size;
    vector<vector<int>> g;
    vector<int> parent, subtreeSize, depth;
    vector<int> head, next;
    vector<int> chain, at;
    vector<vector<int>> chains;

    HeavyLightDecomposition(int n_ = 0) : size(n_), g(n_) {}

    void addEdge(int a, int b){
        g[a].push_back(b);
        g[b].push_back(a);
    }

    int goUp(int & v) const {
        return parent[head[v]];
    }

    void decompose(const int root = 0){
        parent.assign(size, 0);
        subtreeSize.assign(size, 0);
        depth.assign(size, -1);
        head.assign(size, 0);
        next.assign(size, -1);
        chain.assign(size, -1);
        at.assign(size, 0);
        static int stk[600010], k = 0;
        stk[k++] = root;
        parent[root] = -1;
        depth[root] = 0;
        while(k){
            const int v = stk[--k];
            if(v >= 0){
                stk[k++] = ~v;
                for(const int ch : g[v]){
                    if(depth[ch] != -1) continue;
                    depth[ch] = depth[v] + 1;
                    parent[ch] = v;
                    stk[k++] = ch;
                }
            } else {
                const int u = ~v;
                subtreeSize[u] = 1;
                int m = 0;
                for(const int ch : g[u]){
                    if(parent[u] == ch) continue;
                    subtreeSize[u] += subtreeSize[ch];
                    if(m < subtreeSize[ch]){
                        m = subtreeSize[ch];
                        next[u] = ch;
                    }
                }
            }
        }

        k = 0;
        stk[k++] = root;
        while(k){
            const int head_ = stk[--k];
            for(const int ch : g[head_]){
                if(parent[head_] == ch) continue;
                stk[k++] = ch;
            }
            if(chain[head_] != -1) continue;
            chains.push_back(vector<int>());
            vector<int> & path = chains.back();
            int cur = head_;
            while(cur != -1){
                path.push_back(cur);
                cur = next[cur];
            }
            for(size_t i = 0; i < path.size(); i++){
                const int v = path[i];
                head[v] = path.front();
                next[v] = i+1 != path.size() ? path[i+1] : -1;
                chain[v] = chains.size() - 1;
                at[v] = i;
            }
        }
    }

    vector<map<int,int>> marks; // -depth, node
    void prepare(){
        marks.assign(chains.size(), {});
    }
    void mark(int v){
        marks[chain[v]][-depth[v]] = v;
    }
    int query(int v){
        while(1){
            auto & ms = marks[chain[v]];
            auto it = ms.lower_bound(-depth[v]);
            if(it != ms.end()) return it->second;
            else v = goUp(v);
        }
    }
};

int n,q;
char qt[100010];
int qv[100010];
HeavyLightDecomposition h;

ll solve(){
    ll ans = 0;
    h.decompose();
    h.prepare();
    h.mark(0);
    rep(i,q){
        if(qt[i] == 'Q') ans += h.query(qv[i]) + 1;
        else h.mark(qv[i]);
    }
    return ans;
}

int main(){
    fastios();
    while(cin >> n >> q && n){
        h = HeavyLightDecomposition(n);
        rep(i,n-1){
            int par;
            cin >> par;
            h.addEdge(par-1,i+1);
        }
        rep(i,q){
            cin >> qt[i] >> qv[i];
            qv[i]--;
        }
        cout << solve() << endl;
    }
}

Measured memory_bytes: 24228