No puedo encontrar una manera efectiva de seleccionar todas las permutaciones de 4 elementos de una lista de 9 elementos en Haskell. La forma de pitón para hacer lo mismo:

itertools.permutations(range(9+1),4)

Una forma no tan efectiva de hacerlo en Haskell:

nub . (map (take 4)) . permutations $ [1..9]

Me gustaría encontrar algo como:

permutations 4 [1..9]