sclass TreeOfListFollowups<A> extends Tree<A> {
  L<A> list;
  MultiMap<A, Int> index;
  
  *(L<A> *list, MultiMap<A, Int> *index, A a) { super(a); }

  L<Tree<A>> children() {
    ret children = map(entriesFollowingIndices(list, index.get(a)),
      s -> new TreeOfListFollowups<A>(list, index, s));
  }
}