program info;
var m,n,i,j:byte;
sum,suma:longint;
    a:array[1..16,1..16] of longint;
    f,g:text;
begin
 assign(f,'flip.in'); reset(f);
 assign(g,'flip.out');rewrite(g);
   readln(f,m,n);
     for i:=1 to m do
       for j:=1 to n do
         read(f,a[i,j]);
     for i:=1 to m do
     begin
       sum:=0;
       for j:=1 to n do
         sum:=sum+a[i,j];
        if sum<0 then
          for j:=1 to n do
            a[i,j]:=-a[i,j];
     end;
      for j:=1 to n do
      begin
       sum:=0;
        for i:=1 to m do
          sum:=sum+a[i,j];
            if sum<0 then
              for i:=1 to m do
              a[i,j]:=-a[i,j];
      end;
   writeln(suma,' ');
   suma:=0;
     for i:=1 to m do
       for j:=1 to n do
          suma:=suma+a[i,j];
          write(g,suma);
 close(f);
 close(g);
end.