var a,sum,f:array[0..100,0..100] of longint;
n,m,i,j,k,ans,max:longint;
begin
readln(n,m);
for i:=1 to n do
begin
for j:=1 to m do
begin
read(a[i,j]);
sum[i,j]:=sum[i,j-1]+a[i,j];
end;
readln;
end;
for i:=1 to m do
for j:=i to m do
begin
ans:=0;
for k:=1 to n do
begin
inc(ans,sum[k,j]-sum[k,i-1]);
if ans>max then max:=ans;
if ans<0 then ans:=0;
end;
end;
writeln(max);
end.