-- -*- M2-comint -*- hash: 1516063743339563791

i1 : S = QQ[a..e];

i2 : c5 = cycle S

o2 = Graph{"edges" => {{a, b}, {b, c}, {c, d}, {d, e}, {a, e}}}
           "ring" => S
           "vertices" => {a, b, c, d, e}

o2 : Graph

i3 : edgeIdeal c5

o3 = monomialIdeal (a*b, b*c, c*d, a*e, d*e)

o3 : MonomialIdeal of S

i4 : graph flatten entries gens edgeIdeal c5 == c5

o4 = true

i5 : k5 = completeGraph S

o5 = Graph{"edges" => {{a, b}, {a, c}, {a, d}, {a, e}, {b, c}, {b, d}, {b, e}, {c, d}, {c, e}, {d, e}}}
           "ring" => S
           "vertices" => {a, b, c, d, e}

o5 : Graph

i6 : edgeIdeal k5

o6 = monomialIdeal (a*b, a*c, b*c, a*d, b*d, c*d, a*e, b*e, c*e, d*e)

o6 : MonomialIdeal of S

i7 : S = QQ[z_1..z_8];

i8 : h = hyperGraph {{z_1,z_2,z_3},{z_2,z_3,z_4,z_5},{z_4,z_5,z_6},{z_6,z_7,z_8}}

o8 = HyperGraph{"edges" => {{z , z , z }, {z , z , z , z }, {z , z , z }, {z , z , z }}}
                              1   2   3     2   3   4   5     4   5   6     6   7   8
                "ring" => S
                "vertices" => {z , z , z , z , z , z , z , z }
                                1   2   3   4   5   6   7   8

o8 : HyperGraph

i9 : edgeIdeal h

o9 = monomialIdeal (z z z , z z z z , z z z , z z z )
                     1 2 3   2 3 4 5   4 5 6   6 7 8

o9 : MonomialIdeal of S

i10 : 
