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

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

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

i3 : edges(H)

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

o3 : List

i4 : isGoodLeaf(H,0)

o4 = true

i5 : isGoodLeaf(H,1)

o5 = false

i6 :