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