var a:array[1..2000,0..250] of integer;
    v,v2:array[0..2000] of longint;
    f,g:text;
    min,i,j,n,m,x,y:longint;
begin
 assign(f,'reconst.in'); reset(f);
 assign(g,'reconst.out'); rewrite(g);
 read(f,n,m);
 for i:=0 to m-1 do begin
  read(f,x,y,v2[i]);
  for j:=x to y do
   a[j,i shr 3]:=a[j,i shr 3] or (1 shl (i and 7));
 end;
 for i:=1 to n do begin
  min:=maxlongint;
  for j:=0 to m-1 do
   if ((a[i,j shr 3] shr (j and 7)) and 1=1) and (min>v2[j]) then
    min:=v2[j];
  v[i]:=min;
  for j:=0 to m-1 do
   if (a[i,j shr 3] shr (j and 7) and 1=1) then
    v2[j]:=v2[j]-min;
 end;
 for i:=1 to n-1 do
  write(g,v[i],' ');
 writeln(g,v[n]);
 close(f); close(g);
end.