var f,g:text;
n,m,t,z,r,x,y,d,i:longint;
a:array[1..10000] of qword;
h:boolean;
 begin
 assign(f,'oz.in');reset(f);
 assign(g,'oz.out');rewrite(g);
 read(f,n,m);
 for i:=1 to n do
  a[i]:=1;
 for i:=1 to m do
  begin
   read(f,x,y,d);
   t:=a[x];
   z:=d;
   r:=t mod z;
   while r>0 do
    begin
     t:=z;
     z:=r;
     r:=t mod z;
    end;
   a[x]:=a[x]*(d div z);
   t:=a[y];
   z:=d;
   r:=t mod z;
   while r>0 do
    begin
     t:=z;
     z:=r;
     r:=t mod z;
    end;
   a[y]:=a[y]*(d div z);
  end;
 close(f);
 reset(f);
 read(f,n,m);
 h:=true;
 for i:=1 to m do
  begin
   read(f,x,y,d);
   t:=a[x];
   z:=a[y];
   r:=t mod z;
   while r>0 do
    begin
     t:=z;
     z:=r;
     r:=t mod z;
    end;
   if z<>d then h:=false;
  end;
 if h then
 for i:=1 to n do
  write(g,a[i],' ')
  else write(g,-1);
 close(f);
 close(g);
 end.