#include <bits/stdc++.h>
#define ll long long
using namespace std;
const int N=500,M=26;
int n,len,head[N+M+5],st,ed,ans[N+5],sr[M+5],lim[M+5][N+5];
int cnt,d[N+M+5],maxflow,pos[M+5][N+5],gr[N+5],all[M+5],sum[M+5];
char g[N+5][N+5],c[N+5][N+5];
queue<int> q;
struct Edge{
    int v,nx,s;
}e[N*N];
inline int read(){
    int ret=0,ff=1;char ch=getchar();
    while(!isdigit(ch)){if(ch=='-')ff=-1;ch=getchar();}
    while(isdigit(ch)){ret=ret*10+(ch^48);ch=getchar();}
    return ret*ff;
}
int to(char c){
    return c-'a'+1;
}
void add(int x,int y,int s){
    e[++cnt].v=y;
    e[cnt].s=s;
    e[cnt].nx=head[x];
    head[x]=cnt;
}
bool bfs(){
    memset(d,0,sizeof(d));
    while(!q.empty()) q.pop();
    q.push(st);
    d[st]=1;
    while(!q.empty()){
        int x=q.front();q.pop();
        for(int i=head[x];i;i=e[i].nx){
            if(e[i].s&&!d[e[i].v]){
                q.push(e[i].v);
                d[e[i].v]=d[x]+1;
                if(e[i].v==ed) return 1;
            }
        }
    }
    return 0;
}
int dinic(int x,int flow){
    if(x==ed) return flow;
    int rest=flow,k;
    for(int i=head[x];i&&rest;i=e[i].nx){
        if(e[i].s&&d[e[i].v]==d[x]+1){
            k=dinic(e[i].v,min(rest,e[i].s));
            if(!k) d[e[i].v]=0;
            e[i].s-=k;
            e[i^1].s+=k;
            rest-=k;
        }
    }
    return flow-rest;
}
signed main(){
    n=read()-1,len=read();
    cnt=1;
    st=N+M+1,ed=N+M+2;
    for(int i=1;i<=n;i++){
        scanf("%s%s",g[i]+1,c[i]+1);
        for(int j=1;j<=len;j++){
            if(c[i][j]=='G'){
                pos[to(g[i][j])][j]=1;
                gr[j]=1;
            }
        }
    }
    for(int i=1;i<=26;i++){
        for(int j=1;j<=len;j++){
            all[i]+=pos[i][j];
        }
    }
    for(char i='a';i<='z';i++){
        for(int j=1;j<=n;j++){
            int cnty=0,cntg=0,cntb=0;
            for(int k=1;k<=len;k++){
                if(g[j][k]==i){
                    cnty+=(c[j][k]=='Y');
                    cntg+=(c[j][k]=='G');
                    cntb+=(c[j][k]=='B');
                    if(c[j][k]=='B'||c[j][k]=='Y') lim[to(i)][k]=1;
                }
            }
            if(cntb) sum[to(i)]=cnty+cntg-all[to(i)],sr[to(i)]=1;
            else{
                sum[to(i)]=max(sum[to(i)],max(cnty+cntg-all[to(i)],0));
            }
        }
    }
    for(int i=1;i<=26;i++){
        add(st,i,sum[i]);
        add(i,st,0);
        for(int j=1;j<=len;j++){
            if(lim[i][j]||gr[j]) continue;
            add(i,j+M,1);
            add(j+M,i,0);
        }
    }
    for(int i=1;i<=len;i++){
        add(i+M,ed,1);
        add(ed,i+M,0);
    }
    int flow=0;
    while(bfs()){
        while(flow=dinic(st,1e9)) maxflow+=flow;
    }
    for(int i=1;i<=len;i++) ans[i]='0';
    for(int i=1;i<=26;i++){
        for(int j=1;j<=len;j++){
            if(pos[i][j]) ans[j]=i+'a'-1;
        }
        for(int j=head[i];j;j=e[j].nx){
            int v=e[j].v;
            if(v==st||e[j].s) continue;
            ans[v-M]=i+'a'-1;
        }
    }
    // for(int i=1;i<=len;i++) putchar(ans[i]);
    for(int i=1;i<=len;i++){
        if(ans[i]!='0')
            gr[i]=1;
    }
    cnt=1;
    memset(head,0,sizeof(head));
    for(int i=1;i<=26;i++){
        if(sr[i]) continue;
        add(st,i,1e9);
        add(i,st,0);
        for(int j=1;j<=len;j++){
            if(lim[i][j]||gr[j]) continue;
            add(i,j+M,1);
            add(j+M,i,0);
        }
    }
    for(int i=1;i<=len;i++){
        add(i+M,ed,1);
        add(ed,i+M,0);
    }
    flow=0;
    while(bfs()){
        while(flow=dinic(st,1e9)) maxflow+=flow;
    }
    for(int i=1;i<=26;i++){
        for(int j=head[i];j;j=e[j].nx){
            int v=e[j].v;
            if(v==st||e[j].s) continue;
            ans[v-M]=i+'a'-1;
        }
    }
    for(int i=1;i<=len;i++) putchar(ans[i]);
    return 0;
}