BANGCON PASCAL

var m,n,max:longint;
a,b:array[1..10,1..10] of char;
procedure nhap;
var i,j:longint;
begin
        readln(m,n);
        for i:=1 to m do
        begin
                for j:=1 to n do
                        read(a[i,j]);
                readln;
        end;
        for i:=1 to m do
        begin
                for j:=1 to n do
                        read(b[i,j]);
                readln;
        end;
end;
function ss(x,y,z,d,e,f:longint):boolean;
var i,j:longint;
begin
        for i:=1 to e do
                for j:=1 to f do
                        if a[x+i-1,y+j-1]<>b[z+i-1,d+j-1] then exit(false);
        exit(true);
end;
procedure giai;
var i,j,xa,ya,xb,yb:longint;
begin
        max:=0;
        for i:=1 to m do
                for j:=1 to n do
                        for xa:=1 to m+1-i do
                                for ya:=1 to n+1-j do
                                        for xb:=1 to m+1-i do
                                                for yb:=1 to n+1-j do
                                                        if ss(xa,ya,xb,yb,i,j)=true then
                                                                if (i*j)>max then max:=i*j;

        write(max);
end;
begin
    assign(input,'bangcon.inp');reset(input);
    assign(output,'bangcon.out');rewrite(output);
    nhap;
    giai;
end.