uses crt;
type mat=array[1..100,1..100] of 0..1001;
     vek=array[1..5000] of 0..1001;
var e,jr,os:vek; x:mat; i,j,a,b,c,n,m,kcs,l,cs:integer; f:text;
procedure lol(var cs:integer);
  var i,min,cs1:integer; t:boolean;
  begin
    min:=l; t:=false;
    for i:=1 to n do
      if (e[i]<min)and(jr[i]<>1) then begin min:=e[i]; cs1:=i; end;
   jr[cs1]:=1;
   for i:=1 to n do
    if jr[i]=0 then t:=true;
    if t then begin
    for i:=1 to n do begin
      if x[cs1,i]+min<e[i] then begin e[i]:=x[cs1,i]+min; os[i]:=cs1; end;
      end;
      cs:=cs1;
    lol(cs);
    end;
  end;
begin
  assign(f,'dijkstra.in');
  reset(f);
  readln(f,n,m);
  l:=0;
  for i:=1 to m do begin
        readln(f,a,b,c);
        x[a,b]:=c; x[b,a]:=c;
        l:=l+c;
      end;
  close(f);
  l:=l+1;
  kcs:=1;
  for i:=1 to n do
    for  j:=1 to n do
      if x[i,j]=0 then x[i,j]:=l;
  for i:=1 to n do
   if (x[kcs,i]<>0)and(i<>kcs) then e[i]:=x[kcs,i]
   else if i=kcs then e[i]:=0
   else e[i]:=l;
  for i:=1 to n do
   jr[i]:=0;
  jr[kcs]:=1;
  cs:=kcs;
  for i:=1 to n do
    os[i]:=kcs;
    os[kcs]:=0;
  lol(cs);
  assign(f,'dijkstra.out');
  rewrite(f);
  for i:=2 to n do
  write(f,e[i],' ');
  close(f);
end.