!7

srecord Entry(O object, Number count) {}

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