static OccTree2 goodDialogs2occTree2(L<Dialog> dialogs) {
  new OccTree2 tree;
  for (Dialog d : dialogs)
    if (d.good)
      tree.addScript(d.poem);
  ret tree;
}