#include<bits/stdc++.h>
using namespace std;
double PI=acos(-1.0);
#define ll long long
#define ull unsigned long long
#define pii pair<ll,ll>
const ll mod=3;
ll nn;
ll fac[mod+105],inv[mod+105];
void getInv()
{
    fac[0]=fac[1]=inv[1]=1;
    for(int i=2;i<mod;i++)
    {
        fac[i]=fac[i-1]*i%mod;
        inv[i]=(mod-mod/i)*inv[mod%i]%mod;
    }
}
ll C(ll n,ll m)
{
    if(m>n) return 0;
    return fac[n]*inv[fac[m]*fac[n-m]%mod]%mod;
}
ll Lucas(ll n,ll m)
{
    if(m>n) return 0;
    if(n<mod && m<mod)return C(n,m);
    return Lucas(n/mod,m/mod)*C(n%mod,m%mod)%mod;
}
map<char,ll>m;
int main()
{
    ios::sync_with_stdio(0);
    getInv();
    m['B']=0;
    m['W']=1;
    m['R']=2;
    ll n;
    cin>>n;
    ll ans=0;
    for(int i=0;i<n;i++)
    {
        char op;
        cin>>op;
        ll d=m[op];
        ans=(ans+d*Lucas(n-1,i))%mod;
    }
    if(n%2==0)
        ans=(3-ans)%3;
    if(ans==0)
    {
        cout<<"B"<<endl;
    }
    else if(ans==1)
    {
        cout<<"W"<<endl;
    }
    else if(ans==2)
    {
        cout<<"R"<<endl;
    }
    return 0;
}


#include<bits/stdc++.h>
using namespace std;
typedef long long ll;
#define fr(i,n) for(int i=0;i<n;i++)
#define fro(i,j,n) for(int i=j;i<n;i++)
#define ifr(i,n) for(int i=n-1;i>=0;i--)

int lower_three(int x){
  int a=1;
  while(3*a<x){
    a*=3;
  }
  return a;
}

char change(char x,char y){
  char list[3]={'R','W','B'};
  if(x==y)return x;
  else{
    fr(i,3){
      if(x!=list[i]&&y!=list[i]) return list[i];
    }
  }
}

int main() {
    int n;
	cin >> n;
    string c;
    cin >> c;
    int a;
    while(n>1){
      a=lower_three(n-1);
      fr(i,n-a){
        c[i]=change(c[i],c[i+a]);
      }
      n-=a;
    }
    cout << c[0] << endl;
}