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