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