{-# htermination intersect :: [Int] -> [Int] -> [Int] #-}
import List