VAR
	n,m,MAX,i,j : Integer;
	v		: Array[0..20] of Integer;
	a		: Array[1..20,1..20] of Integer;
	f, g    : Text;

Procedure bkt (k : Integer);
Var
	total_sum,sum_oszlop : Integer;
BEGIN
	
	i := 0; j := 0;
	
	if (k = n+1) then
		begin
			total_sum := 0;
			sum_oszlop := 0;
			for j:=1 to m do
				begin
					sum_oszlop := 0;
					for i:=1 to n do
						begin
							if v[i] = 1 then
								sum_oszlop := sum_oszlop - a[i,j]
										else
								sum_oszlop := sum_oszlop + a[i,j];
						end;
					if sum_oszlop < 0 then
						sum_oszlop := -1*sum_oszlop;
					total_sum := total_sum + sum_oszlop;
				end;
		if total_sum > MAX then
			MAX := total_sum;
		exit;
		end;
	for i:=0 to 1 do
		begin
			v[k] := i;
			bkt(k+1);
	end;
	
END;

BEGIN

	Assign(f,'flip.in');
	Assign(g,'flip.out');
	Reset(f); Rewrite(g);
	
	i := 0; j := 0; 
	
	Read(f,n,m);
	for i:=1 to n do
		for j:=1 to n do
			Read(f,a[i,j]);
	bkt(1);
	Write(g,MAX);
	
	Close(f); Close(g);

END.