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