#include <bits/stdc++.h>
//#include "bits/stdc++.h"
using namespace std;
typedef long long ll;
//#include "boost/multiprecision/cpp_int.hpp"
//typedef boost::multiprecision::cpp_int ll;
typedef long double dd;
//#define i_7 (ll)(1E9+7)
#define i_7 998244353
#define i_5 i_7-2

ll mod(ll a){
    ll c=a%i_7;
    if(c>=0)return c;
    return c+i_7;
}
typedef pair<ll,ll> l_l;
typedef pair<dd,dd> d_d;
ll inf=(ll)1E16;
#define rep(i,l,r) for(ll i=l;i<=r;i++)
#define pb push_back
ll max(ll a,ll b){if(a<b)return b;else return a;}
ll min(ll a,ll b){if(a>b)return b;else return a;}
void Max(ll &pos,ll val){pos=max(pos,val);}//Max(dp[n],dp[n-1]);
void Min(ll &pos,ll val){pos=min(pos,val);}
void Add(ll &pos,ll val){pos=mod(pos+val);}
dd EPS=1E-9;
#define fastio ios::sync_with_stdio(false); cin.tie(0); cout.tie(0);
#define fi first
#define se second
#define endl "\n"
#define SORT(x) sort(x.begin(),x.end())
#define ERASE(x) x.erase(unique(x.begin(),x.end()),x.end())
#define POSL(x,v) (lower_bound(x.begin(),x.end(),v)-x.begin())
#define POSU(x,v) (upper_bound(x.begin(),x.end(),v)-x.begin())
//template<class T>void max(T a,T b){if(a<b)return b;else return a;}
//template<class T>void min(T a,T b){if(a>b)return b;else return a;}
//template<class T>bool Max(T&a, T b){if(a < b){a = b;return 1;}return 0;}
//template<class T>bool Min(T&a, T b){if(a > b){a = b;return 1;}return 0;}

//////////////////////////


//from betrue12 Codeforces 1326E
template<typename F, typename T, typename Func_mf, typename Func_op, typename Func_mv>
struct LazySegtree {
    ll n, n_org;
    vector<T> dat;
    vector<F> laz;
    Func_mf merge_functions; //lazyとlazyの演算
    Func_op operate;       //dataとlazyの演算
    Func_mv merge_values;  //dataとdataの演算
    F fe; //lazyの単位元かつ初期値
    T te; //dataの単位元かつ初期値
 
    LazySegtree(){}
    LazySegtree(ll n_org,
                Func_mf merge_functions,
                Func_op operate,
                Func_mv merge_values,
                F fe, T te):
                n_org(n_org),
                merge_functions(merge_functions),
                operate(operate),
                merge_values(merge_values),
                fe(fe), te(te){
        n = 1;
        while(n < n_org) n <<= 1;
        dat.resize(2*n-1, te);
        laz.resize(2*n-1, fe);
    }
 
    void build(vector<T>& A){
        for(ll k=0; k<ll(A.size()); k++) dat[k+n-1] = A[k];
        for(ll k=n-2; k>=0; k--) dat[k] = merge_values(dat[2*k+1], dat[2*k+2]);
    }
    void update(ll a, ll b, F x){ //[a,b]をupdate
        update(a, b+1, x, 0, 0, n);
    }
    T get(ll a, ll b){ //[a,b]から(最小値とか和とかを)get
        return query(a, b+1, 0, 0, n);
    }
 
    
private:
    void eval(ll k, ll w){
        if(laz[k] == fe) return;
        operate(dat[k], laz[k], w);
        if(k < n-1){
            merge_functions(laz[2*k+1], laz[k]);
            merge_functions(laz[2*k+2], laz[k]);
        }
        laz[k] = fe;
    }
    T query(ll a, ll b, ll k, ll lb, ll rb){
        eval(k, rb-lb);
        if(rb<=a || b<=lb) return te;
        if(a<=lb && rb<=b) return dat[k];
        ll mb = (lb+rb)>>1;
        T vl = query(a, b, 2*k+1, lb, mb);
        T vr = query(a, b, 2*k+2, mb, rb);
        return merge_values(vl, vr);
    }
    void update(ll a, ll b, F x, ll k, ll lb, ll rb){
        eval(k, rb-lb);
        if(b <= lb || rb <= a) return;
        if(a <= lb && rb <= b){
            merge_functions(laz[k], x);
            eval(k, rb-lb);
        }else{
            ll mb = (lb+rb)>>1;
            update(a, b, x, 2*k+1, lb, mb);
            update(a, b, x, 2*k+2, mb, rb);
            dat[k] = merge_values(dat[2*k+1], dat[2*k+2]);
        }
    }
};

auto make_segtree = [](ll N){ //auto make_segtree = [&](ll N)
    
    
    //区間加算と区間最小
    /*
    using F = ll;
    using T = ll;
    auto merge_functions = [](F& f, F& g){f += g;};
    auto operate = [](T& v, F& f, ll w){v += f;};
    auto merge_values = [](T& a, T& b){return min(a, b);};
    F fe = 0;
    T te = inf;*/
    
    //区間加算と区間最大
    /*
    using F = ll;
    using T = ll;
    auto merge_functions = [](F& f, F& g){f += g;};
    auto operate = [](T& v, F& f, ll w){v += f;};
    auto merge_values = [](T& a, T& b){return max(a, b);};
    F fe = 0;
    T te = -inf;*/
    
    //区間加算と区間和
    /*
    using F = ll;
    using T = ll;
    auto merge_functions = [](F& f, F& g){f += g;};
    auto operate = [](T& v, F& f, ll w){v += f*w;};
    auto merge_values = [](T& a, T& b){return a+b;};
    F fe = 0;
    T te = 0;*/
    
    //区間更新と区間最小
    /*
    using F=ll;
    using T=ll;
    auto merge_functions=[](F& f,F& g){f=g;};
    auto operate = [](T& v, F& f, ll w){v=f;};
    auto merge_values = [](T& a, T& b){return min(a, b);};
    F fe = inf;
    T te = inf;*/
    
    //区間更新と区間最大
    /*
    using F=ll;
    using T=ll;
    auto merge_functions=[](F& f,F& g){f=g;};
    auto operate = [](T& v, F& f, ll w){v=f;};
    auto merge_values = [](T& a, T& b){return max(a, b);};
    F fe = -inf;
    T te = -inf;*/
    
    //区間更新と区間和
    /*
    using F=ll;
    using T=ll;
    auto merge_functions=[](F& f,F& g){f=g;};
    auto operate = [](T& v, F& f, ll w){v=f*w;};
    auto merge_values = [](T& a, T& b){return a+b;};
    F fe = -inf;
    T te = 0;*/
    
    using F=ll;
    using T=ll;
    auto merge_functions=[](F& f,F& g){f=f^g;};
    auto operate = [](T& v, F& f, ll w){
        if(f==true)v=w-v;
    };
    auto merge_values = [](T& a, T& b){return a+b;};
    F fe = 0;
    T te = 0;
    
    
    
    return LazySegtree<F, T, decltype(merge_functions), decltype(operate), decltype(merge_values)>
        (N, merge_functions, operate, merge_values, fe, te);
};
/*
auto st = make_segtree(n);
vector<ll> init(n);
st.build(init);
 */

#define N 100005
ll L[N],R[N];
ll NUM=0;
vector<ll>v[N];
void eular(ll id,ll par=-1){
    L[id]=NUM++;
    for(auto x:v[id]){
        if(x==par)continue;
        eular(x,id);
    }
    R[id]=NUM-1;
}

int main(){fastio
    ll n,q;cin>>n>>q;
    ll p[n+1];p[1]=-1;
    rep(i,2,n){
        cin>>p[i];
        v[i].pb(p[i]);
        v[p[i]].pb(i);
    }
    eular(1);
    //rep(i,1,n)cout<<L[i]<<" "<<R[i]<<endl;
    auto u=make_segtree(n);
    vector<ll>init(n);
    rep(i,1,n){
        string s;cin>>s;
        init[L[i]]= (s[0]=='G')? 1:0;
    }
    u.build(init);
    while(q--){
        ll a;cin>>a;
        u.update(L[a],R[a],1);
        ll cnt=u.get(0,n-1);
        //cout<<cnt<<" ";
        if(cnt*2>n){
            cout<<"broccoli"<<endl;
        }else{
            cout<<"cauliflower"<<endl;
        }
    }
    
    return 0;
}



Measured memory_bytes: 20228