/*
构造单位矩阵（转移矩阵）
给定n*m网格，每个格子独立按照长度不超过6的操作串循环操作
对应的操作有
0-9：拿x个石头到这个格子
nwse：把这个格子的石头推移到相邻格子
d：清空该格石子
开始时网格是空的，问t秒后石头最多的格子里有多少个石子
t很大，并且每次操作后格子里的石头是线性变化的，所以用矩阵来加速递推
将n*m网格表示成为(i-1)*m+j的一维数组，那么这个数组对应的转移矩阵大小应该是(nm)^2
然后由于每个格子的操作串最长只有6，并且1-6的最小公倍数是60，所以所有格子的操作60秒一个循环
那么求出每秒的转移矩阵，用Ai表示第i秒的转移矩阵，(1<=i<=60)
另A=mul(Ai),t=p*60+r,那么结果状态就是A^p*mul(A1,Ar);
那么如何将操作对应到转移矩阵的构造上？
考虑转移矩阵的运行原理：可以将F'[j]=F[i]*A[i][j]，即将原数组的F[i]*A[i][j]然后加到F'[j]上
0-9：凭空把x个石头转移到第i个格子上，令F[0]=1，A[0][num(i,j)]=x，如此即可完成状态转移
nwse：距离n操作：把第i行的石头转移到第i-1行，即把num[i][j]的石头转移到num[i-1][j]，那么令A[num[i][j]][num[i-1][j]]=1即可
保证要使F[0]=1，那么将A[0][0]设置为1
A的其它数值都为0
F数组就是[1,0,0,0,0,0,0,0,...0]
矩阵快速幂加速计算
*/
#include<bits/stdc++.h>
using namespace std;
#define P 65
#define ll long long
int n,m,t,q,i,j,k,x,y,N;
int id[P][P],a[P][P],l[P];//
char b[P][P];
ll ans;
struct mat{
ll a[P][P];
mat(){memset(a,,sizeof a);}
mat operator*(mat b){//重载矩阵乘法
mat c;
for(int i=;i<n;i++)
for(int j=;j<n;j++)
for(int k=;k<n;k++)
c.a[i][j]+=a[i][k]*b.a[k][j];
return c;
}
}one,A[P],pre[P],B,C,D;
int main(){
scanf("%d%d%d%d",&n,&m,&t,&q);
char ch;
for(int i=;i<=n;i++)//输入每个格子对应的操作序号
for(int j=;j<=m;j++)
cin>>ch,a[i][j]=ch-'',id[i][j]=++N;
N++;
for(int i=;i<q;i++){//输入q行不同的操作序列
scanf("%s",b[i]+),l[i]=strlen(b[i]+);
b[i][]=b[i][l[i]];//循环点处理一下
}
for(int i=;i<n;i++)one.a[i][i]=;//构造单位矩阵
pre[]=one;
char c;
for(int i=;i<=;i++){//求出每个时间点对应的状态转移矩阵
A[i].a[][]=;//对于第1个点
for(int j=;j<=n;j++)
for(int k=;k<=m;k++){
//求出第[j,k]块的序号,就是a[j][k]，在第i个时间点对应的操作c
c=b[a[j][k]][i%l[a[j][k]]];
if(c>='' && c<=''){//数字
A[i].a[id[j][k]][]=c-'';
A[i].a[id[j][k]][id[j][k]]++;
}
if(c=='N'){//向各个方向转移
x=j-,y=k;
if(x>=)
A[i].a[id[x][y]][id[j][k]]++;
}
if(c=='S'){
x=j+,y=k;
if(x<=n)
A[i].a[id[x][y]][id[j][k]]++;
}
if(c=='W'){
x=j,y=k-;
if(y>=)
A[i].a[id[x][y]][id[j][k]]++;
}
if(c=='E'){
x=j,y=k+;
if(y<=m)
A[i].a[id[x][y]][id[j][k]]++;
}
}
pre[i]=A[i]*pre[i-];//把所有时间点的矩阵乘起来
}
B=pre[],C=one;
for(k=t/;k;k>>=){//快速幂
if(k&)C=C*B;
B=B*B;
}
D.a[][]=,D=pre[t%]*C*D;//把余下时间的矩阵呈上去
for(int i=;i<N;i++)//由于F数组只有第0项为1，那么直接求D[i][0]的最大值即可！
if(ans<D.a[i][])
ans=D.a[i][];
printf("%lld",ans);
}