{-# htermination max :: (Ord a, Ord k) => (Either a k) -> (Either a k) -> (Either a k) #-}