1 const
 2     maxn=2020;
 3 var
 4     n,m,ans1,ans2:longint;
 5     a,s:array[0..maxn,0..maxn]of longint;
 6
 7 function max(x,y:longint):longint;
 8 begin
 9     if x>y then exit(x);
10     exit(y);
11 end;
12
13 function min(x,y:longint):longint;
14 begin
15     if x<y then exit(x);
16     exit(y);
17 end;
18
19 procedure init;
20 var
21     i,j:longint;
22 begin
23     read(n,m);
24     for i:=1 to n do
25       for j:=1 to m do
26         read(a[i,j]);
27     for i:=1 to m do
28       s[1,i]:=1;
29     for i:=2 to n do
30       for j:=1 to m do
31         if a[i,j]<>a[i-1,j] then s[i,j]:=s[i-1,j]+1
32         else s[i,j]:=1;
33 end;
34
35 var
36     w,h:array[0..maxn]of longint;
37     tot:longint;
38
39 procedure insert(x:longint);
40 var
41     k:longint;
42 begin
43     k:=0;
44     while (tot>0)and(h[tot]>=x) do
45       begin
46         inc(k,w[tot]);
47         ans1:=max(ans1,sqr(min(h[tot],k)));
48         ans2:=max(ans2,h[tot]*k);
49         dec(tot);
50       end;
51     inc(tot);
52     h[tot]:=x;
53     w[tot]:=k+1;
54 end;
55
56 procedure work;
57 var
58     i,j:longint;
59 begin
60     for i:=1 to n do
61       begin
62         tot:=0;
63         for j:=1 to m do
64           if (tot=0)or(a[i,j]<>a[i,j-1]) then insert(s[i,j])
65           else
66             begin
67               insert(0);
68               tot:=0;
69               insert(s[i,j]);
70             end;
71         insert(0);
72       end;
73     writeln(ans1);
74     writeln(ans2);
75 end;
76
77 begin
78     init;
79     work;
80 end.