#include<cstdio>
#include<iostream>
using namespace std;
const int o=5e5;
int n,m,K,n_[99],m_[99],cnt[99],Cnt[99][99],mp[300],tmp,opt[o],X[o],Y[o],ans,x,y;
bool vis[99][99];char a[99][99],f[99][99][99];
inline void read(int t){
	for(int i=1;i<=n_[t];++i) scanf("%s",f[t][i]+1);
	for(int i=1;i<=n_[t];++i) for(int j=1;j<=m_[t];++j) ++Cnt[t][mp[f[t][i][j]]];
}
inline bool chk(int t,int typ){
	int s=n*m,s_=0;
	for(int i=1;i<63;++i) s-=cnt[i],s_+=min(cnt[i],Cnt[t][i]);
	return s_>=typ&&s+s_>=n_[t]*m_[t];
}
inline void mov(int sx,int sy,int tx,int ty){
	for(;sx<tx;++sx) opt[++ans]=-3,X[ans]=sx,Y[ans]=sy,swap(a[sx][sy],a[sx+1][sy]);
	for(;sy<ty;++sy) opt[++ans]=-1,X[ans]=sx,Y[ans]=sy,swap(a[sx][sy],a[sx][sy+1]);
	for(;sx>tx;--sx) opt[++ans]=-4,X[ans]=sx,Y[ans]=sy,swap(a[sx][sy],a[sx-1][sy]);
	for(;sy>ty;--sy) opt[++ans]=-2,X[ans]=sx,Y[ans]=sy,swap(a[sx][sy],a[sx][sy-1]);
}
inline void fnd(char c){
	for(int i=1;i<=n;++i) for(int j=1;j<=m;++j) if(a[i][j]==c&&!vis[i][j]){x=i;y=j;return;}
	for(int i=1;i<=n;++i) for(int j=1;j<=m;++j) if(a[i][j]=='?'&&!vis[i][j]){x=i;y=j;return;}
}
inline void Mov(int t){
	for(int i=1;i<=n_[t];++i) for(int j=1;j<=m_[t];++j)
		fnd(f[t][i][j]),mov(x,y,i,j),vis[i][j]=1;
}
inline void del(int x,int y){if(a[x][y]^'?') --cnt[mp[a[x][y]]],a[x][y]='?';}
int main(){
	for(int i='a';i<='z';++i) mp[i]=++tmp;
	for(int i='A';i<='Z';++i) mp[i]=++tmp;
	for(int i='0';i<='9';++i) mp[i]=++tmp;
	scanf("%d%d%d",&n,&m,&K);n_[K+1]=n;m_[K+1]=m;read(K+1);
	for(int i=1;i<=n;++i) scanf("%s",a[i]+1);
	for(int i=1;i<=n;++i) for(int j=1;j<=m;++j) ++cnt[mp[a[i][j]]];
	for(int i=1;i<=K;++i) scanf("%d%d",&n_[i],&m_[i]),read(i);
	for(int i=1;i<=K;++i) for(int j=1;j<=K;++j) if(chk(j,1)){
		Mov(j);
		for(int $=1;$<=n_[j];++$) for(int _=1;_<=m_[j];++_) del($,_);
		opt[++ans]=j;X[ans]=Y[ans]=1;
		for(bool flg=1;flg;){
			flg=0;
			for(int $=1;$<=n;++$) for(int _=1;_<=m;++_) if(Cnt[j][mp[a[$][_]]]){
				flg=1;
				for(int x=1;x<=n_[j];++x) for(int y=1;y<=m_[j];++y) if(a[$][_]==f[j][x][y])
					{mov($,_,x,y);opt[++ans]=j;X[ans]=Y[ans]=1;del(x,y);break;}
			}
		}
		for(int $=1;$<=n;++$) for(int _=1;_<=m;++_) vis[$][_]=0;
		break;
	}
	if(chk(K+1,0)) for(Mov(K+1),printf("%d\n",ans);ans;--ans) printf("%d %d %d\n",opt[ans],X[ans],Y[ans]);
	else printf("-1");
	return 0;
}