Program p1;
type tablou=array[1..16,1..16] of longint;
var f1,f2:text;n,m,i,j,k:byte;
t:tablou;s1,s2,s:longint;
begin
assign(f1,'flip.in');
reset(f1);
assign(f2,'flip.out');
rewrite(f2);
readln(f1,n,m);
for i:=1 to n do begin
for j:=1 to m do
read(f1,t[i,j]);
readln(f1);
end;
for i:=1 to n do begin s1:=0; s2:=0;
for j:=1 to m do begin
s1:=s1+t[i,j];
s2:=s2+t[i,j]*(-1);
end;
if s2>s1 then for k:=1 to m do t[i,k]:=t[i,k]*(-1);
end;
for j:=1 to m do begin s1:=0; s2:=0;
for i:=1 to n do begin
s1:=s1+t[i,j];
s2:=s2+t[i,j]*(-1);
end;
if s2>s1 then for k:=1 to n do t[k,j]:=t[k,j]*(-1);
end;
for i:=1 to n do
for j:=1 to m do
s:=s+t[i,j];
write(f2,s);
close(f1);
close(f2);
for i:=1 to n do begin
for j:=1 to m do
write(t[i,j]);
writeln;
end;
end.