Pensieve header: Graphs for Dylan, extracted from notebooks in pensieve://Projects/OU/ .

While[True,Print[ExtractionGraph[Echo@RandomBraid[RandomChoice[{3,4,5,6,7}] , RandomChoice[{8,10,12,16,20}]]]]]

While[True,
vpb=Module[{n=RandomChoice[{3,4,5,6}],m=RandomChoice[{8,10,12,16}],i},
VPB[n,Sequence@@Table[(Subscript[RandomChoice[{σ,(OverBar[σ])}], i=RandomChoice@Range@n,RandomChoice[Complement[Range@n,{i}]]]),{m}]]];
Print[vpb];
Print[ExtractionGraph[vpb]]
]