Macro Do-Bag-Pairs

Part of:

package fset
( do-bag-pairs ( value-var mult-var bag &optional value ) &body body )
For each member of bag, binds value-var and mult-var to the member and
its multiplicity respectively, and executes body. When done, returns value.