program Project2;

{$APPTYPE CONSOLE}
var
f:text;
a,b,k,i,m:integer;
s:array[1..1000, 1..1000] of longint;
p:array[1..1000,1..1000] of boolean;
sa:boolean;
da:array[1..1000] of integer;
qw:int64;

function max(l:integer):integer;
var h:integer;
begin
  h:=1;
  for i:=2 to a do
    begin
      if (not p[l, h]) or (s[l, h]<s[l, i]) then h:=i;
    end;
  max:=h;
  p[l,h]:=true;
  end;
function max1(l:integer):integer;
var h:integer;
begin
  h:=1;
  for i:=2 to a do
    begin
      if (not p[l, h]) or (s[l, h]<s[l, i]) then h:=i;
    end;
    max1:=h;
end;
begin
sa:=true;
assign(f, 'legacy.in');
reset(f);
read(f, a ,b);
for i:=1 to a do  begin
   for k:=1 to a-1 do
      read(f, s[i,k]);
      readln(f, s[i, a]);
end;
for i:=1 to a do
   da[i]:=max(i);
for i:=1 to a-1 do
    for k:=i+1 to a do
    if da[i]=da[k] then begin
    sa:=false;
    if s[i, da[i]]>s[k, da[k]] then da[k]:=max(k) else da[i]:=max(i);
    end else sa:=true;
qw:=0;
for i:=1 to a do
   qw:=qw+da[i];
assign(f, 'legacy.out');
rewrite(f);
write(f, qw);
close(f);
end.