{-# htermination lookupWithDefaultFM :: FiniteMap Int b -> b -> Int -> b #-} import FiniteMap