Some more implementation of Haskell sets. Intersect seems to work now!