{-# htermination maxFM :: (Ord a, Ord k) => FiniteMap (Either a k) b -> Maybe (Either a k) #-}
import FiniteMap