!set gl_n=!randint 6,10
!set gl_ar=!randint 4,10
!set gl_c=!randitem 0,1
!readproc slib/graph/randomeuler $gl_n,$gl_ar,$gl_c

!set gl_A=$(slib_out[1])
!set gl_ch=!declosing $(slib_out[2])
!set gl_list=!makelist x for x=1 to $gl_n
!set gl_listA=A,B,C,D,E,F,G,H,I,J,K,L
!set gl_listA=$(gl_listA[1..$gl_n])
!set gl_ch=!items2words $(gl_listA[$gl_ch])

!readproc slib/graph/draw $gl_A,red,blue,[$gl_listA],,html
