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