{-# htermination filterFM :: Ord a => ((Maybe a) -> b -> Bool) -> FiniteMap (Maybe a) b -> FiniteMap (Maybe a) b #-}
import FiniteMap