{-# htermination either :: (a -> c) -> (b -> c) -> Either a b -> c #-}