program ex10_29_1;
 const
  maxsum=1000;
 var
     a:array[1..10,1..10] of integer;
     f:array[0..10,0..10,-maxsum-10..maxsum+10] of boolean;
     n,m:integer;

procedure init;
 var
    i,j:integer;
 begin
 readln(n,m);
 for i:=1 to n do
  for j:=1 to m do
  read(a[i,j]);
 end;

procedure main;
 var
    i,j,k,ans:integer;
    ok:boolean;

 begin
  f[1,1,a[1,1]]:=true;
  for i:=1 to n do
   for j:=1 to m do
    for k:=-maxsum to maxsum do
    f[i,j,k]:=f[i,j,k] or f[i-1,j,k-a[i,j]] or f[i,j-1,k-a[i,j]];

  ok:=false;
  for ans:=1 to maxsum do
  if f[n,m,ans] then begin ok:=true; break; end;
  if ok then writeln(ans)
        else writeln(-1);
 end;


begin
 assign(input,'number.in');
 assign(output,'number.out');
 reset(input); rewrite(output);
 init;
 main;
 close(input); close(output);
end.