ignoresInverse :: (Eq a) => ([Int] -> a) -> Int -> Bool
ignoresInverse f  = all g . allPermutations
  where
    g p = f p == f (inverse p)
ignoresInverse :: (Eq a) => ([Int] -> a) -> Int -> Bool
ignoresInverse f  = all g . allPermutations
  where
    g p = f p == f (inverse p)
ignoresInverse f  = all g . allPermutations
  where
    g p = f p == f (inverse p)