var i,j,k,l,m,n:longint;
a:array[0..1000,0..1000]of longint;
b:array[0..1000]of longint;
begin
while not eof do
begin
k:=0;l:=0;
readln(n,m);
for i:=1 to n do
for j:=1 to m do
a[i,j]:=0;
for i:=1 to n do
b[i]:=0;
for i:=1 to n do
for j:=1 to m do
begin
read(a[i,j]);
b[i]:=b[i]+a[i,j];
end;
for i:=1 to n do
begin
k:=0; 
for j:=1 to m do
if a[i,j]>k then
begin
k:=a[i,j];
l:=j;
end;
a[i,l]:=b[i];
end;
for i:=1 to n do
begin
for j:=1 to m-1 do
write(a[i,j],' ');
write(a[i,m]);
writeln;
end;
end;
end.
/**************************************************************
	Problem: 2213
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/