static <A> MultiSet<A> stripMultiSetToTopTen(MultiSet<A> ms) {
  if (ms == null) null;
  new MultiSet<A> ms2;
  for (Pair<A> p : topTenPairs(ms))
    ms2.ad(p.a, p.b);
  ret ms2;
}