-- -*- M2-comint -*- hash: 5346690478472795964

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

i2 : G = graph {{a, c}, {c, e}, {e, b}, {b, d}, {d, a}};

i3 : areIsomorphic(cycle R, G)

o3 = true

i4 : L = apply(permutations gens R, P -> graphToString graph apply(5, i-> {P_i, P_((i+1)%5)}));

i5 : N = removeIsomorphs L

o5 = {Dhc}

o5 : List

i6 : stringToGraph(first N, R)

o6 = Graph{"edges" => {{a, b}, {b, c}, {c, d}, {a, e}, {d, e}}}
           "ring" => R
           "vertices" => {a, b, c, d, e}

o6 : Graph

i7 : 
