var v,s,r,t:array[0..2010,0..2010]of longint;
    l,o,p,w:array[0..2010]of longint;
    n,i,j,k,m,a,b,c,u:longint;
    f:text;
begin
   assign(f,'reconst.in');
   reset(f);
   read(f,n,m);
   for i:=1 to m do
   begin
   read(f,a,b,c);
   a:=a-1;
   l[a]:=l[a]+1;
   v[a,l[a]]:=b;
   s[a,l[a]]:=c;
   w[b]:=w[b]+1;
   r[b,w[b]]:=a;
   t[b,w[b]]:=c;
   end;
   close(f);
   for i:=0 to n do
   for j:=1 to l[i] do
   if p[v[i,j]]=0 then begin p[v[i,j]]:=1;
                             o[v[i,j]]:=o[i]+s[i,j];
                             for u:=1 to w[v[i,j]] do
                             o[r[v[i,j],u]]:=o[v[i,j]]-t[v[i,j],u];
                       end;
   assign(f,'reconst.out');
   rewrite(f);
   for i:=1 to n do
   write(f,o[i]-o[i-1],' ');
   writeln(f);
   close(f);
end.