#include<bits/stdc++.h>
#define ff first
#define ss second
#define pb push_back
typedef long long ll;
using namespace std;
typedef pair<int,int> pii;

const int mod=998244353;
inline int add(int x,int y){int ret=x+y;if(ret>=mod)ret-=mod;return ret;}
inline int sub(int x,int y){int ret=x-y;if(ret<0)ret+=mod;return ret;}
inline int mul(int x,int y){return ((ll)x*y)%mod;}
inline int step(int base,int pw){int ret=1;while(pw){if(pw&1)ret=mul(ret,base);base=mul(base,base);pw>>=1;}return ret;}
inline int invv(int x){return step(x,mod-2);}


const int maxn=3e5+10;

int n,m,k;
vector<int>vect[maxn];
vector<pii>g[maxn];
int cnt[maxn],rez[maxn],pos[maxn];
int eid;
void add_edge(int u,int v){
    g[u].pb({v,eid});
    g[v].pb({u,eid++});
   // printf("%d %d EDGE\n",u,v);
}

void gok(int x){
    int child=0;
    for(int i=0;i<vect[x].size();i++){
        int id=vect[x][i];
        gok(id);
        child++;
    }
    if(child==0)k++;
}
void go(int x,int flag,int p){

    cnt[x]=0;
    int child=0;
    for(int i=0;i<vect[x].size();i++){
        int id=vect[x][i];
        go(id,flag,x);
        cnt[x]^=cnt[id];
        child++;
    }

    if(child==0)cnt[x]=1;

    if(p!=0){

        if(cnt[x]==0)return;

        if(x<=k){
            if(flag==1)add_edge(x,p);
            else add_edge(x,p+n-k);
        }
        else{
            if(flag==1)add_edge(x,p);
            else add_edge(x+n-k,p+n-k);
        }

    }

}

void euler(int x,vector<int>&stek){

    //for(int i=0;i<stek.size();i++)printf("%d ",stek[i]);
    //printf(" AA\n");

    //printf("%d XX\n",x);
    while(g[x].size()){
        int id=g[x].back().ff;
        int eid=g[x].back().ss;
       // printf("%d EID\n",eid);
        g[x].pop_back();
        if(pos[eid])continue;
        pos[eid]=1;
        euler(id,stek);
        stek.pb(x);
    }
}
void obradi(int u,int v){

    ///printf("%d %d OB\n",u,v);

    if(u<=k && v<=n)rez[u]=1;

}

int main(){

    ///freopen("test.txt","r",stdin);

    int t;
    scanf("%d",&t);
    while(t--){

        scanf("%d %d",&n,&m);
        for(int i=0;i<=n+m+10;i++)pos[i]=0;
        k=0;
        eid=0;
        for(int i=1;i<=n;i++)vect[i].clear();
        for(int i=1;i<n;i++){
            int p;
            scanf("%d",&p);
            vect[p].pb(i);
        }
        gok(n);
        go(n,1,0);

        for(int i=1;i<=m;i++)vect[i].clear();
        for(int i=1;i<m;i++){
            int p;
            scanf("%d",&p);
            vect[p].pb(i);
        }
        go(m,2,0);

        if(k%2){
            add_edge(n,m+n-k);
        }

        for(int i=1;i<=k;i++)rez[i]=0;

        for(int i=1;i<=n+m-k;i++){
            if(g[i].size()==0)continue;

            vector<int>stek;
            euler(i,stek);

            //for(int j=0;j<stek.size();j++)printf("%d ",stek[j]);
            //printf(" STEK\n");

            for(int j=1;j<stek.size();j++)
                obradi(stek[j],stek[j-1]);
            obradi(stek[0],stek[stek.size()-1]);

        }

        for(int i=1;i<=k;i++){
            if(rez[i]==0)printf("R");
            else printf("B");
        }
        printf("\n");

    }

    return 0;
}