dsingular3:=
[ rec(
      lperms := [ [ 1, 2, 3 ], [ 1, 2, 3 ], [ 1, 2, 3 ] ],
      rperms := [ [ 1, 3, 2 ], [ 3, 2, 1 ], [ 2, 1, 3 ] ] ), rec(
      lperms := [ [ 1, 3, 2 ], [ 3, 2, 1 ], [ 2, 1, 3 ] ],
      rperms := [ [ 1, 2, 3 ], [ 1, 2, 3 ], [ 1, 2, 3 ] ] ) ]
;