#A presentation from Shawcroft - some kind of knot group I think
_RWS := rec(
  isRWS := true,
  ordering := "shortlex",
  generatorOrder := [a,A,b,B,c,C,d,D,e,E,f,F],
  inverses := [A,a,B,b,C,c,D,d,E,e,F,f],
  equations := [
    [a*C*A*d,IdWord],
    [b*f*B*E,IdWord],
    [c*e*C*D,IdWord],
    [d*F*D*a,IdWord],
    [e*b*E*A,IdWord],
    [f*C*F*b,IdWord]
  ]
);