Macro Do-Bag

Part of:

package fset
( do-bag ( value-var bag &optional value ) &body body )
For each member of bag, binds value-var to it and and executes body a
number of times equal to the member's multiplicity. When done, returns value.