#include <iostream>
#include <cstdio>
#include <string>
#include <cstring>
#include <deque>
#include <list>
#include <queue>
#include <stack>
#include <vector>
#include <utility>
#include <algorithm>
#include <map>
#include <set>
#include <complex>
#include <cmath>
#include <limits>
#include <climits>
#include <ctime>
#include <cassert>
#include <numeric>
#include <functional>
#include <bitset>

using namespace std;
using lint = long long int;
long long int INF = 1001001001001001LL;
int inf = 1000000007;
long long int MOD = 1000000007LL;
double PI = 3.1415926535897932;

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

#define ALL(a) a.begin(),a.end()
#define RALL(a) a.rbegin(),a.rend()

/* do your best */

// quoted from beet-aizu
template <typename T,typename E, typename F, typename G, typename H>
struct LazySegmentTree{
    //using F = function<T(T,T)>;
    //using G = function<T(T,E)>;
    //using H = function<E(E,E)>;
    int n,height;
    F f;
    G g;
    H h;
    T ti;
    E ei;
    vector<T> dat;
    vector<E> laz;
    LazySegmentTree(F f,G g,H h,T ti,E ei):
        f(f),g(g),h(h),ti(ti),ei(ei){}

    void init(int n_){
        n=1;height=0;
        while(n<n_) n<<=1,height++;
        dat.assign(2*n,ti);
        laz.assign(2*n,ei);
    }
    void build(const vector<T> &v){
        int n_=v.size();
        init(n_);
        for(int i=0;i<n_;i++) dat[n+i]=v[i];
        for(int i=n-1;i;i--)
            dat[i]=f(dat[(i<<1)|0],dat[(i<<1)|1]);
    }
    inline T reflect(int k){
        return laz[k]==ei?dat[k]:g(dat[k],laz[k]);
    }
    inline void eval(int k){
        if(laz[k]==ei) return;
        laz[(k<<1)|0]=h(laz[(k<<1)|0],laz[k]);
        laz[(k<<1)|1]=h(laz[(k<<1)|1],laz[k]);
        dat[k]=reflect(k);
        laz[k]=ei;
    }
    inline void thrust(int k){
        for(int i=height;i;i--) eval(k>>i);
    }
    inline void recalc(int k){    
        while(k>>=1)
            dat[k]=f(reflect((k<<1)|0),reflect((k<<1)|1));
    }
    void update(int a,int b,E x){
        thrust(a+=n);
        thrust(b+=n-1);
        for(int l=a,r=b+1;l<r;l>>=1,r>>=1){
            if(l&1) laz[l]=h(laz[l],x),l++;
            if(r&1) --r,laz[r]=h(laz[r],x);
        }
        recalc(a);
        recalc(b);
    }
    void set_val(int a,T x){
        thrust(a+=n);
        dat[a]=x;laz[a]=ei;
        recalc(a);
    }
    T query(int a,int b){
        thrust(a+=n);
        thrust(b+=n-1);
        T vl=ti,vr=ti;
        for(int l=a,r=b+1;l<r;l>>=1,r>>=1) {
            if(l&1) vl=f(vl,reflect(l++));
            if(r&1) vr=f(reflect(--r),vr);
        }
        return f(vl,vr);
    }
};

/* 
 *    [考えるべきこと]
 *    区間をマージしてから作用素を作用させても、作用素を作用させてから区間をマージするのと結果が同じ
 *    複数の作用素をマージして一度に作用させられること
 *    作用素を伝搬し終わっているのかの判定に必要（まあこれは満たされていなくても最悪どうにかなる）
 *    O(N) とかだと困る（setのマージとか）
 * 
 */


void euler_tour(int cur, int par, vector<int> &tour, vector<int> &ls, vector<int> &rs, int &index, vector<char> &c, vector<vector<int>> &g) {
  ls[cur] = index;
  if (c[cur] == 'G') tour.push_back(1);
  else tour.push_back(-1);
  index++;

  for (auto nxt : g[cur]) {
    if (nxt == par) continue;
    euler_tour(nxt, cur, tour, ls, rs, index, c, g);
  }

  rs[cur] = index;
  if (c[cur] == 'G') tour.push_back(1);
  else tour.push_back(-1);
  index++;
}

int main() {
  
  int n, q; cin >> n >> q;

  vector<vector<int>> g(n);
  for (int i = 1; i < n; i++) {
    int p; cin >> p;
    p--;
    g[i].push_back(p);
    g[p].push_back(i);
  }
  vector<char> c(n);
  for (int i = 0; i < n; i++) {
    cin >> c[i];
  }
  
  // 頂点属性部分木オイラーツアー
  vector<int> tour;  // 数列（今回は，-1, 1 を格納するか...）
  vector<int> ls(n); // ls[v] := v が初めに出現した index
  vector<int> rs(n); // rs[v] := v が最後に出現した index
  
  int index = 0;
  euler_tour(0, -1, tour, ls, rs, index, c, g);

  /* for (int i = 0; i < tour.size(); i++) {
    cerr << tour[i] << " ";
  }
  cerr << endl;
  for (int i = 0; i < n; i++) {
    cout << "ls[" << i << "] = " << ls[i] << ", rs[" << i << "] = " << rs[i] << endl;
  }
  */

  using T = int;  // type T
  using E = int;  // type E
  auto f = [](T a, T b){ // return type T value
    return a + b;
  };
  auto gg = [](T a, E b){ // return type T value
    return a * b;
  };
  auto h = [](E a, E b){ // return type E value
    return a * b;
  };
  T ti = 0;  // identify element
  E ei = 1;  // identify element
  LazySegmentTree<T, E, decltype(f), decltype(gg), decltype(h)> sg(f, gg, h, ti, ei);  // don't change
  sg.build(tour);   // 初期配列を代入

  for (int i = 0; i < q; i++) {
    int v; cin >> v;
    v--;
    // cerr << "(" << ls[v] << ", " << rs[v] << ") = " << ls[v] << " " << rs[v] << endl;
    sg.update(ls[v], rs[v] + 1, -1);
    
    /* for (int i = 0; i < tour.size(); i++) {
      cerr << sg.query(i, i + 1) << " ";
    }*/
    // cout << sg.query(ls[v], rs[v] + 1) << endl;
    if (sg.query(ls[0], rs[0] + 1) > 0) cout << "broccoli" << endl;
    else cout << "cauliflower" << endl;
  }

  return 0;
}



Measured memory_bytes: 28300