program hcn;
var h:array[0..10000] of integer;
    n:integer;
    A,e,b:array[1..1000] of integer;


procedure getm(var x:integer;y:integer);
begin
  if y>x then x:=y;
end;


procedure nhap;
var f:text;
    i,j:integer;
begin
  assign(f,'HCN.TXT');
  reset(f);
  readln(F,n);
  fillchar(h,sizeof(h),0);
  for i:=1 to n  do
  begin
      readln(F,a[i],B[i],E[i]);
      for j:=A[i] to B[i]-1 do
        getm(H[j],E[i])

  end;
  close(f);
  H[0]:=0;
end;



procedure  tinh;
var i:integer;
begin
  n:=0;
  for i:=1 to 10000 do
    if h[i]<>H[i-1]  then
      begin
        if H[i-1]<>0 then b[n]:=i;
        if H[i]<>0 then
        begin
        inc(n);
        A[n]:=i;
        E[n]:=H[i];
        end;
      end;
end;


procedure ghi;
var f:text;
    i:integer;
begin
 assign(f,'DA_HCN.TXT');
 rewrite(f);
 writeln(n);
 for i:=1 to n do
  writeln(f,A[i],' ',B[i],' ',E[i]);
  close(f);
end;


begin
 nhap;
 tinh;
 ghi;
end.