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