{-# htermination listToFM :: (Ord a, Ord k) => [((Either a k),b)] -> FiniteMap (Either a k) b #-}
import FiniteMap