import Data.Set (Set)
import qualified Data.List as List
import qualified Data.Set  as Set

setPermutations :: Set a -> [[a]]
setPermutations = List.permutations . Set.toList