Var n,m,i,j,l,max,s,k:Longint;
    f,g:Text;
    a:array[1..100,1..100] of Longint;

Begin

Assign(f,'flip.in'); ReSet(f);
Assign(g,'flip.out'); ReWrite(g);

Read(f,n,m);

For i:=1 To n Do
    For j:=1 To m Do
        Read(f,a[i,j]);

max:=0;

For i:=1 To n Do
    For j:=1 To m Do Begin
        s:=0;
        For k:=1 To m Do
            a[i,k]:=a[i,k]*(-1);
        For k:=1 To n Do
            a[k,j]:=a[k,j]*(-1);
        For k:=1 To n Do
            For l:=1 To m Do
                s:=s+a[k,l];
        If s>max Then max:=s;
        For k:=1 To m Do
            a[i,k]:=a[i,k]*(-1);
        For k:=1 To n Do
            a[k,j]:=a[k,j]*(-1);
        End;
WriteLn(g,s);

Close(f);
Close(g);

End.