var i,j,k,n,m,a,b:integer;
        t:array[1..1000,1..1000] of integer;
        f:text;
procedure citire;
begin
assign(f,'dijkstra.in');
        reset(f);
        readln(f,n,m);
for i:=1 to m do
        begin
readln(f,a,b,k);
        t[a,b]:=k;
        t[b,a]:=k;
end;
end;
begin
citire;
for i:=1 to n do
        for j:=1 to n do
        if t[i,j]=0 then t[i,j]:=maxint;
       for k:=1 to n do
        for i:=1 to n do
        for j:=1 to n do
        if i<>j then
        if (t[k,i]+t[j,k]<t[i,j]) then t[i,j]:=t[k,i]+t[j,k];
                     assign(f,'dijkstra.out');
                     rewrite(f);
                for j:=2 to n do
                write(f,t[1,j],' ');
                close(f);
        readln

end.