var a:array[1..100,1..100] of integer;
   i,j,n,m,s,s1, k,l:integer;
   f,g:text;
begin
  assign(g,'input');
  assign(f,'output');
  reset(g);
  readln(g,m,n);
  rewrite(f);
  for i:=1 to n do
  begin
   for j:=1 to m do
   read(g,a[i,j]);
   readln(g);
  end;

  i:=1;
  while i<=n do
  begin
  s:=0; s1:=0;
  for j:=1 to m do
   begin
   s:=s+a[i,j];
   s1:=s1-a[i,j];
   end;
   writeln(f,'s= ',s,' s1= ',s1);
  if s1<s then
  begin
  for k:=1 to n do
   begin
   for l:=1 to m do
    a[k,l]:= -a[k,l];
   end;
  end;
  inc(i);
  end;

  for i:=1 to n do
  begin
   for j:=1 to m do
   write(f,a[i,j],' ');
   writeln(f);
  end;
  close(f);
  close(g);
end.