#include<bits/stdc++.h>
using namespace std;
const int N=100010,M=1000010;
const int inf=0x3f3f3f3f;

int head[N],edge[M],ver[M],nxt[M],d[N];
int n,m,maxflow=0,tot=1,s=N-1,t=N-2,ss=N-3,tt=N-4;
void add_edge(int x,int y,int z)
{
	ver[++tot]=y,edge[tot]=z,nxt[tot]=head[x],head[x]=tot;
}
void add(int x,int y,int z)
{
	add_edge(x,y,z),add_edge(y,x,0);
}
void add(int x,int y,int l,int r)
{
	add(ss,y,l),add(x,tt,l),add(x,y,r-l);
}

queue<int> q;
bool bfs(int S,int T)
{
	while(q.size()) q.pop();
	memset(d,0,sizeof(d));
	q.push(S),d[S]=1;
	while(q.size())
	{
		int x=q.front(); q.pop();
		for(int i=head[x];i;i=nxt[i])
		{
			int y=ver[i];
			if(edge[i]&&!d[y]) d[y]=d[x]+1,q.push(y);
		}
	}
	return d[T];
}
int dinic(int x,int flow,int t)
{
	if(x==t||!flow) return flow;
	int res=flow,k;
	for(int i=head[x];i&&res;i=nxt[i])
	{
		int y=ver[i];
		if(edge[i]&&d[y]==d[x]+1)
		{
			k=dinic(y,min(edge[i],res),t);
			if(!k) d[y]=0;
			res-=k,edge[i]-=k,edge[i^1]+=k;
		}
	}
	return flow-res;
}

int g,l;
int minn[33],maxn[33],maxG[33];
int cnt[33],cntG[33];
bool black[33];
bool ban[33][510];
char st[N],col[N];
char ans[N];

int main()
{
	scanf("%d%d",&g,&l);
	for(int i=0;i<26;i++) minn[i]=0,maxn[i]=l;
		memset(ban,false,sizeof(ban));
	for(int i=1;i<g;i++)
	{
		for(int j=0;j<26;j++) cnt[j]=cntG[j]=black[j]=0;
		scanf("%s%s",st+1,col+1);
		for(int j=1;j<=l;j++)
		{
			if(col[j]=='G') ans[j]=st[j],cnt[st[j]-'a']++,cntG[st[j]-'a']++;
			if(col[j]=='Y') cnt[st[j]-'a']++,ban[st[j]-'a'][j]=true;
			if(col[j]=='B') black[st[j]-'a']=true,ban[st[j]-'a'][j]=true;
		}
		for(int j=0;j<26;j++)
		{
			maxG[j]=max(maxG[j],cntG[j]);
			minn[j]=max(minn[j],cnt[j]);
			if(black[j]) maxn[j]=cnt[j];
		}
	}

	for(int i=0;i<26;i++) add(s,i,minn[i]-maxG[i]);

	for(int i=1;i<=l;i++)
	{
		if(ans[i]) continue;
		add(26+i,t,1);
		for(int ch=0;ch<26;ch++)
			if(!ban[ch][i]) add(ch,26+i,1);
	}

	int flow=0;
	while(bfs(s,t)) while(flow=dinic(s,inf,t)) maxflow+=flow;

	for(int i=1;i<=tot;i++) if(i&1) edge[i]=0;
	for(int i=0;i<26;i++) add(ss,i,maxn[i]-minn[i]);
	while(bfs(ss,t)) while(flow=dinic(ss,inf,t)) maxflow+=flow;

	for(int i=0;i<26;i++)
	{
		for(int j=head[i];j;j=nxt[j])
		{
			int y=ver[j];
			if(26+1<=y&&y<=26+l&&!edge[j]) ans[y-26]=i+'a';
		}
	}
	for(int i=1;i<=l;i++) putchar(ans[i]);
		putchar('\n');
	return 0;
}