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