!set gl_n=!randint 3,6
!set gl_author=Bernadette, Perrin-Riou

!readproc slib/matrix/random $gl_n,$gl_n,5
!set gl_A1=!exec pari B=[$slib_out]; matrix($gl_n,$gl_n,i,j,if(i!=j,abs(B[i,j]+B[j,i])))
!set gl_A2=!exec pari B=[$gl_A1]; matrix($gl_n,$gl_n,i,j,B[i,j]!=0)

!set gl_list=A,B,C,D,E,F,G,H,I
!set gl_list=$(gl_list[1..$gl_n])

!readproc slib/graph/draw [$gl_A1],blue,blue,[$gl_list],,html weight
!set gl_out1=$slib_out

!!weight
!!!set gl_s=!shuffle $gl_n
!!!distribute item $gl_s into gl_s1,gl_s2

!!!readproc slib/graph/shortpath [$gl_A2], $gl_s1, $gl_s2
!!!set gl_out2=$slib_out
