static OccTree<E> dialogs2occTree(L<Dialog> dialogs) {
  new OccTree<E> tree;
  for (Dialog d : dialogs)
    tree.add(listPlus(d.poem, E.state(d.good ? "good" : "bad")));
  ret tree;
}