Program gardieni;
var a:array[1..1000000] of longint;
    s:int64;
    n,x,b,i,j,t,c:longint;
    f,q:text;
begin
assign(f,'gardieni.in');
reset(f);
assign(q,'gardieni.out');
rewrite(q);
read(f,n,t);
for i:=1 to n do
begin
        read(f,x,b,c);
        for j:=x to b do if (a[j]>c) or (a[j]=0) then a[j]:=c;
end;
n:=0;
for i:=1 to t do s:=s+a[i];
write(q,s);
close(f);
close(q);
end.