type mas=array[0..1000,0..1000] of longint;
    vector=array[0..1000,0..1000] of char;
var
   a:vector;
   b:mas;
   ii,jj,i,j,n,k,f,l:longint;
   s:string;
   x,c,c1:char;

function max(aa,bb:longint):longint;
begin
  if aa>bb then
      max:=aa
  else
      max:=bb;
end;

begin
readln(n);
for i := 1 to n do begin
  for j := 1 to n do begin
    read(x);
    a[i,j]:=x;
 end; readln;
end;
readln(s);
b[1,1]:=1;

for i := 1 to n do
  for j := 1 to n do
    if a[i,j]=s[i+j-1] then begin
          b[i+1,j]:=(b[i+1,j]+b[i,j])mod 1000003;
          b[i,j+1]:=(b[i,j+1]+b[i,j])mod 1000003;
    end;

writeln(b[n,n] mod 1000003);

end.