intersectionM :: IntMap a -> IntMap b -> IntMap a
intersectionM (IntMap m1) (IntMap m2) = IntMap (W.intersectionM m1 m2)
intersectionM :: IntMap a -> IntMap b -> IntMap a
intersectionM (IntMap m1) (IntMap m2) = IntMap (W.intersectionM m1 m2)
intersectionM (IntMap m1) (IntMap m2) = IntMap (W.intersectionM m1 m2)