var
a:array [1..100,1..100] of longint；
f:array [1..100] of longint；
i,j,k,t,s,n,m,max:longint；
c:string；
begin
readln(n,m)；
for i:=1 to n do
begin
readln(c)；
for j:=1 to m do
begin
val(c[j],a[i,j])；
if a[i,j]=0
then a[i,j]:=-1；
end；
end；
for i:=1 to n do
for j:=i to m do
begin
fillchar(f,sizeof(f),0)；
for t:=1 to m do
for k:=i to j do
f[t]:=f[t]+a[k,t]；
s:=0；
for k:=1 to m do
begin
if f[k]<f[k-1]+f[k]
then f[k]:=f[k-1]+f[k]；
if f[k]>s
then s:=f[k]；
end；
if s>max
then max:=s；
end；
writeln(max)；
readln；
readln；
end.