Bag ADT in Scheme