#include <algorithm>
#include <bitset>
#include <complex>
#include <deque>
#include <exception>
#include <fstream>
#include <functional>
#include <iomanip>
#include <ios>
#include <iosfwd>
#include <iostream>
#include <istream>
#include <iterator>
#include <limits>
#include <list>
#include <locale>
#include <map>
#include <memory>
#include <new>
#include <numeric>
#include <ostream>
#include <queue>
#include <set>
#include <sstream>
#include <stack>
#include <stdexcept>
#include <streambuf>
#include <string>
#include <typeinfo>
#include <utility>
#include <valarray>
#include <vector>
#include <climits>
#include <cstring>
#include <cassert>

#define rep(i, m, n) for(int i=int(m);i<int(n);i++)
#define all(c) begin(c),end(c)

template<typename T1, typename T2>
inline void chmin(T1 &a, T2 b) { if (a > b) a = b; }

template<typename T1, typename T2>
inline void chmax(T1 &a, T2 b) { if (a < b) a = b; }

typedef long long int ll;
using ll = long long int;
using ull = long long unsigned int;
using Int = long long int;
using uInt = long long unsigned int;
using Double = long double;
using namespace std;
#define INF (1 << 30) - 1
#define INFl (ll)5e15
#define DEBUG 0
#define dump(x)  cerr << #x << " = " << (x) << endl
#define MOD 1000000007


//edit
template<typename T, typename E>
struct SegmentTree {
    using F = function<T(T, T)>;
    using G = function<T(T, E)>;
    using H = function<E(E, E)>;
    using P = function<E(E, size_t)>;
    int n;
    F f; //要素と要素のマージ
    G g; //要素に作用素を作用
    H h; //作用素と作用素をマージ
    T ti; //要素の単位元?
    E ei; //作用素の単位元?
    P p; //b個の作用素aをマージした場合
    vector<T> dat;
    vector<E> laz;

    SegmentTree(int n_, F f, G g, H h, T ti, E ei,
                P p = [](E a, size_t b) {
                    b++;
                    return a;
                }) :
            f(f), g(g), h(h), ti(ti), ei(ei), p(p) {
        init(n_);
    }

    void init(int n_) {
        n = 1;
        while (n < n_) n *= 2;
        dat.assign(2 * n - 1, ti);
        laz.assign(2 * n - 1, ei);
    }

    void build(int n_, vector<T> v) {
        for (int i = 0; i < n_; i++) dat[i + n - 1] = v[i];
        for (int i = n - 2; i >= 0; i--)
            dat[i] = f(dat[i * 2 + 1], dat[i * 2 + 2]);
    }

    inline void eval(int len, int k) {
        if (laz[k] == ei) return;
        if (k * 2 + 1 < n * 2 - 1) {
            laz[k * 2 + 1] = h(laz[k * 2 + 1], laz[k]);
            laz[k * 2 + 2] = h(laz[k * 2 + 2], laz[k]);
        }
        dat[k] = g(dat[k], p(laz[k], len));
        laz[k] = ei;
    }

    T update(int a, int b, E x, int k, int l, int r) {
        eval(r - l, k);
        if (r <= a || b <= l) return dat[k];
        if (a <= l && r <= b) {
            laz[k] = h(laz[k], x);
            return g(dat[k], p(laz[k], r - l));
        }
        return dat[k] = f(update(a, b, x, k * 2 + 1, l, (l + r) / 2),
                          update(a, b, x, k * 2 + 2, (l + r) / 2, r));
    }

    T update(int a, int b, E x) {
        return update(a, b, x, 0, 0, n);
    }

    T query(int a, int b, int k, int l, int r) {
        eval(r - l, k);
        if (r <= a || b <= l) return ti;
        if (a <= l && r <= b) return dat[k];
        T vl = query(a, b, k * 2 + 1, l, (l + r) / 2);
        T vr = query(a, b, k * 2 + 2, (l + r) / 2, r);
        return f(vl, vr);
    }

    T query(int a, int b) {
        return query(a, b, 0, 0, n);
    }

    /**
     * kをxに更新する
     */
    void update(int k, T x) {
        update(k, k + 1, x);
//        query(k,k+1);//evaluate
//        k+=n-1;
//        dat[k]=x;
//        while(k){
//            k=(k-1)/2;
//            dat[k]=f(dat[k*2+1],dat[k*2+2]);
//        }
    }
};


class Solve {
public:


    bool solve() {
        Int N, Q;
        cin >> N >> Q;
        if (N == 0) return false;


        using T = pair<Int, Int>; // depth, value
        using E = pair<Int, Int>; //
        auto f = [](T a, T b) {
            // 深さが深い方を残す
            if (a.first < b.first) return b;
            return a;
        }; // 要素と要素のマージ
        auto g = [](T a, E b) {
            if (a.first < b.first) return b;
            return a;
        }; // 要素に作用素を作用
        auto h = [](E a, E b) {
            if (a.first < b.first) return b;
            return a;
        }; // 作用素と作用素をマージ

        auto p = [](E a, int b) { return a; }; // 作用素を区間加算する場合
        T ti = T(0, 1); //要素の単位元?
        E ei = E(0, 1); //作用素の単位元?

        vector<vector<Int>> tree(N);
        vector<Int> tour(2 * N); // eulor tour
        vector<Int> in(N), out(N);
        vector<Int> depth(N);
        SegmentTree<T, E> treeone(2 * N + 1, f, g, h, ti, ei, p);


        rep(i, 1, N) {
            Int tmp;
            cin >> tmp;
            Int a = i;
            Int b = tmp - 1;
            tree[b].push_back(a);
        }

        if (N >= 1000000) {
            rep(_, 0, Q) {
                char c;
                Int v;
                cin >> c >> v;
            }
            cout << "CUT" << endl;
            return true;
        }

        //euler-tour
        {
            Int idx = 0;
            auto dfs = [&](auto self, Int v, Int d) -> void {
                tour[idx] = v;
                in[v] = idx++;
                depth[v] = d;

                for (auto e : tree[v]) {
                    self(self, e, d + 1);
                }

                tour[idx] = v;
                out[v] = idx++;
            };

            dfs(dfs, 0, 0);
        }


        Int uku = 13 + 33;


        //クエリー
        Int ans = 0;
//        while (Q--) {

        auto print_state = [&]() {
            // すべての状態を出力
            return;

            cout << "--------begin-------" << endl;
            for (int i = 0; i < N; ++i) {
                int v = i;
                T tapu = treeone.query(in[v], in[v] + 1);
                Int tmp = tapu.second;
                cout << v << " : " << tmp << endl;
            }
            cout << "---------end--------" << endl;
        };

        print_state();
        rep(_, 0, Q) {

            char c;
            Int v;
            cin >> c >> v;
            v--;

            if (c == 'M') {
                // treeone の [ in[v], out[v] ] をT(depth[v], v) で更新する
                treeone.update(in[v], out[v] + 1, T(depth[v], v + 1));

            } else {
                // treeone の in[v] の secondを求める
                T tapu = treeone.query(in[v], in[v] + 1);
                Int tmp = tapu.second;
                ans += tmp;
            }
            print_state();
        }
//        }
        cout << ans << endl;

        return true;
    }
};


int main() {
    cin.tie(0);
    ios::sync_with_stdio(false);
    cout << fixed << setprecision(10);

//    std::ifstream ifs("./input.txt");

//    std::ifstream in("input.txt");
//    std::cin.rdbuf(in.rdbuf());


//    string s;
//    getline(ifs, s);
//    cout << s << endl;
    while (Solve().solve());


    return 0;
}



Measured memory_bytes: 33852