Program jocflip;
                var n,m,i,j,k,k1:byte;
                    a:array[1..16,1..16]of longint;
                    rs,s,s1: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]);
     for i:=1 to n do
                     begin
                          s:=0;s1:=0;
                          for j:=1 to m do
                                          begin
                                               s:=s+a[i,j];
                                               s1:=s1+(-1*a[i,j]);
                                          end;
                          if s1>s then
                                      for k:=1 to m do
                                                      a[i,k]:=-1*a[i,k];
                     end;
     for j:=1 to m do
                     begin
                          s:=0;s1:=0;
                          for i:=1 to n do
                                          begin
                                               s1:=s1+(-1*a[i,j]);
                                               s:=s+a[i,j];
                                          end;
                          if s<s1 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.