static OccTree<E> goodDialogs2occTree(L<Dialog> dialogs) {
  new OccTree<E> tree;
  for (Dialog d : dialogs)
    if (d.good)
      tree.add(d.poem);
  ret tree;
}