Program jocflip;
                var n,m,i,j,k,k1:byte;
                    a:array[1..16,1..16]of longint;
                    rs,s:longint;
                    fi,fo:text;
begin
     assign(fi,'flip.in');reset(fi);
     assign(fo,'flip.out');rewrite(fo);
     read(fi,n);readln(fi,m);
     for i:=1 to n do
                     for j:=1 to m do
                                     read(fi,a[i,j]);
     s:=0;
     for i:=1 to n do
                     begin
                          s:=0;
                          for j:=1 to m do
                                          s:=s+a[i,j];
                          if s<0 then
                                     for k:=1 to m do
                                                     a[i,k]:=-1*a[i,k];
                     end;
     for j:=1 to m do
                     begin
                          s:=0;
                          for i:=1 to n do
                                          s:=s+a[i,j];
                          if s<0 then
                                     for k:=1 to n do
                                                     a[k,j]:=-1*a[k,j];
                     end;
     for i:=1 to n do begin
                      for j:=1 to m do
                                      write(a[i,j],' ');
                      writeln;
                      end;
     rs:=0;
      for i:=1 to n do
                      for j:=1 to m do
                                      rs:=rs+a[i,j];
      writeln(fo,rs);
      close(fo);
end.