easy 12 in haskell, permutations