program saddasdasdasd;
type vect=array[1..5000]of longint;
     mat=array[1..5000,1..5000]of integer;
const infinit=maxint;
var d,pre,m,dr:vect;c:mat;
    n,nr_m,cost,i,j,k,x,y,start,dmin,lg,vfmin:integer;
    f,g:text;

procedure initializare;
begin
for i:=1 to n do
 for j:=1 to n do begin c[i,j]:=infinit; c[j,i]:=infinit;end;
for i:=1 to nr_m do begin
                    readln(f,x,y,cost);
                    c[x,y]:=cost;
                    end;
for i:=1 to n do begin d[i]:=c[start,i]; pre[i]:=start;end;
m[start]:=1;pre[start]:=0;
end;

procedure asfalteaza;
begin
for j:=1 to n do
   begin
   dmin:=infinit;
   for i:=1 to n do
     if (m[i]=0)and(dmin>d[i]) then begin
                                    dmin:=d[i];
                                    vfmin:=i;
                                    end;
   m[vfmin]:=1;
   for i:=1 to n do
    if (m[i]=0)and(d[i]>dmin+c[vfmin,i]) then
                                             begin
                                             pre[i]:=vfmin;
                                             d[i]:=dmin+c[vfmin,i];
                                             end;
   end;
end;

procedure afiseaza;
begin
for i:=2 to n do
if i<>start then write(g,d[i],' ');

end;

begin
assign(f,'dijkstra.in');reset(f);
assign(g,'dijkstra.out');rewrite(g);
readln(f,n,nr_m);start:=1;
initializare;
asfalteaza;
afiseaza;
close(f);close(g);
end.