[Haskell-cafe] intersection of sets