var n:word;
m,i,j,nr,k:longint;
f:text;
ok:boolean;
v:array[1..10000] of longint;
begin
assign(f,'oz.in');reset(f);
readln(f,n,m);
for i:=1 to n do
v[i]:=1;
for k:=1 to m do
begin
readln(f,i,j,nr);
if (v[i] mod nr<>0) then v[i]:=v[i]*nr;
if (v[j] mod nr<>0) then v[j]:=v[j]*nr;
end;
ok:=true;
for i:=1 to n do
if v[i]>2147483647 then
begin
ok:=false;
break;
end;
assign(f,'oz.out');rewrite(f);
if ok then begin
for i:=1 to n do
write(f,v[i],' ');
end
else write(f,-1);
close(f);
end.