i1 : R = QQ[a..e];
i2 : areIsomorphic(cycle R, graph {a*c, c*e, e*b, b*d, d*a}) o2 = true
i3 : areIsomorphic("Dhc", "D~{") -- "Dhc" = cycle R, "D~{" = completeGraph R o3 = false