var a:array[0..201,0..201] of longint;

f:array[0..201,0..41] of longint;

b:array[1..6] of string;

c:array[1..6] of longint;

d:array[0..1000] of longint;

i,j,z,p,k,s,n,max,l,h:longint;

s1,s2:string;

procedure work;

begin

for i:=1 to n do

begin

a:=0;

fillchar(d,sizeof(d),0);

for j:=i to n do

begin

a:=a;

if j-max+1=l) and (h+c[z]-1=j) and (d[h]=0)

then begin

inc(d[h]);

inc(a);

end;

end;

end;

end;

end;

begin

readln(p,k);

s1:='';

for i:=1 to p do begin readln(s2);s1:=s1+s2;end;

n:=length(s1);

readln(s);

for i:=1 to s do begin

readln(b[i]);

c[i]:=length(b[i]);

if c[i]>max then max:=c[i];

end;

work;

fillchar(f,sizeof(f),0);

for j:=1 to k do

for i:=j+1 to n do

for z:=j to i-1 do

if f