{-# htermination intersect :: Eq a => [a] -> [a] -> [a] #-}
import List