!7

srecord Entry(O value, Number count) {}

cmodule MultiSet > DynObjectTable<Entry> {
  // API
  
  <A> void setMultiSet(MultiSet<A> ms) {
    new L<Entry> l;
    for (A a : ms.highestFirst())
      l.add(Entry(value, ms.get(a)));
    setData(l);
  }
}