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