-- -*- M2-comint -*- {* hash: 582464897 *}

i1 : R = QQ[a..g];

i2 : H = hyperGraph {b*c*d*e, a*b*c*d, c*d*f, d*g, e*f*g};

i3 : getGoodLeaf(H)

o3 = {a, b, c, d}

o3 : List

i4 : edges(H)

o4 = {{a, b, c, d}, {b, c, d, e}, {c, d, f}, {d, g}, {e, f, g}}

o4 : List

i5 : getGoodLeafIndex(H)

o5 = 0

i6 :