program oz;
var a:array[1..10000]of integer;
f,g:text; n,m,i,d,x,y,p:integer;
ok:boolean;

begin
assign(f,'oz.in');reset(f);
assign(g,'oz.out');rewrite(g);
readln(f,n,m);
for i:=1 to m do begin
        readln(f,x,y,d);
        if a[x]<>0 then begin
                p:=d*a[x];
                while d<>a[x] do
                        if d>a[x] then d:=d-a[x]
                                  else a[x]:=a[x]-d;
                p:=p div d;
                a[x]:=p;
        end
        else a[x]:=d;
        if a[y]<>0 then begin
                p:=d*a[y];
                while d<>a[y] do
                        if d>a[y] then d:=d-a[y]
                                  else a[y]:=a[y]-d;
                p:=p div d;
                a[y]:=p;
        end
        else a[y]:=d;
end;
ok:=true;
for i:=1 to n do
        if a[i]=0 then ok:=false;
if ok then for i:=1 to n do write(g,a[i],' ')
      else writeln(g,'-1');
close(f);close(g);
end.