bzoj4048 3928

const inf=100000007;
var f:array[0..610,0..610] of longint;
v:array[0..10010] of longint;
a,b,h:array[0..610] of longint;
t,i,j,l,k,w,p,n,mx:longint;

function min(a,b:longint):longint;
begin
if a>b then exit(b) else exit(a);
end;

begin
readln(t);
while t>0 do
begin
dec(t);
readln(n);
mx:=0;
fillchar(v,sizeof(v),0);
for i:=1 to n do
begin
readln(a[i],b[i],h[i]);
v[a[i]]:=1;
v[b[i]]:=1;
if b[i]>mx then mx:=b[i];
end;
p:=1;
for i:=1 to mx do
if v[i]=1 then
begin
inc(p);
v[i]:=p;
end;

for i:=1 to n do
begin
a[i]:=v[a[i]];
b[i]:=v[b[i]];
end;
h[0]:=-inf;
inc(p);
for l:=2 to p do
for i:=1 to p-l+1 do
begin
j:=i+l-1;
w:=0;
for k:=1 to n do
if (a[k]>i) and (b[k]<j) and (h[k]>h[w]) then w:=k;
f[i,j]:=inf;
if w=0 then f[i,j]:=0
else
for k:=a[w] to b[w] do
f[i,j]:=min(f[i,j],h[w]+f[i,k]+f[k,j]);
end;
writeln(f[1,p]);
end;
end.