program filip;
uses wincrt;
var v,ma:array[1..16,1..16] of integer;
    i,j,q,z,m,n,smax:integer;
    f,g:text;
procedure linie(x:integer);
begin
for i:=1 to m do
    ma[x,i]:=v[x,j]*-1;
end;
procedure coloana(x:integer);
begin
for i:=1 to n do
    ma[i,x]:=v[i,x]*-1;
end;
procedure initializare;
begin
for i:=1 to n do
    for j:=1 to m do
    ma[i,j]:=v[i,j];
end;
function suma:integer;
var s:integer;
begin
s:=0;
for i:=1 to n do
    for j:=1 to m do
    s:=s+ma[i,j];
suma:=s;
end;
begin
    assign(f,'filip.in');       reset(f);
    assign(g,'filip.out');      rewrite(g);
    readln(f,n,m);
    for i:=1 to n do
    begin
        for j:=1 to m do
            read(f,v[i,j]);
        readln;
    end;
    initializare;
    smax:=suma;
    for q:=1 to n do
        for z:=1 to m do
        begin
        coloana(z);
        linie(q);
        initializare;
        if suma>smax then
                     smax:=suma;
        end;
    write(g,smax);
    close(f);
    close(g);
end.