var
a:array[0..100,0..100] of integer;
b,c,h:array[0..100] of integer;
i,j,n,m,x,y,z:integer;
qwq:integer;
procedure DJ(k:integer);
var
i,q,t,s:integer;
w:boolean;
begin
s:=maxint;
for i:=1 to n do if b[i]<s then begin s:=b[i];t:=i;end;
w:=false;
for i:=1 to n do
begin
q:=a[t,i]+b[t];
if (a[t,i]>0)and(q<b[i]) then begin b[i]:=q;end;
end;
if w then DJ(t);
end;
begin
qwq:=32767;
readln(n,m);
for i:=1 to 100 do b[i]:=qwq;
for i:=1 to m do
begin
readln(x,y,z);
a[x,y]:=z;
if x=1 then b[y]:=z;
end;
h[1]:=1;
DJ(1);
for i:=1 to n do write(b[i],' ');
writeln(b[n]);
end.
a:array[0..100,0..100] of integer;
b,c,h:array[0..100] of integer;
i,j,n,m,x,y,z:integer;
qwq:integer;
procedure DJ(k:integer);
var
i,q,t,s:integer;
w:boolean;
begin
s:=maxint;
for i:=1 to n do if b[i]<s then begin s:=b[i];t:=i;end;
w:=false;
for i:=1 to n do
begin
q:=a[t,i]+b[t];
if (a[t,i]>0)and(q<b[i]) then begin b[i]:=q;end;
end;
if w then DJ(t);
end;
begin
qwq:=32767;
readln(n,m);
for i:=1 to 100 do b[i]:=qwq;
for i:=1 to m do
begin
readln(x,y,z);
a[x,y]:=z;
if x=1 then b[y]:=z;
end;
h[1]:=1;
DJ(1);
for i:=1 to n do write(b[i],' ');
writeln(b[n]);
end.