!759

sS coreName = /*"Let's do GMail"*/ "Simple Hello";

static new L<Dialog> dialogs;
static OccTree<E> tree;

p {
  dialogs = loadDialogs(coreName);
  tree = dialogs2occTree(dialogs);
  testBot(dummyBot());
}

sclass Scores {
  int good, bad;
}

static void testBot(O bot) {
  new Scores scores;
  testTree(bot, tree, scores);
}

static void testTree(O bot, OccTree<E> tree, Scores scores) {
  if (tree.followUp.isEmpty()) ret;
  
  for (E e : keys(tree.followUp)) {
    if (eq(e.state, "good"))
      ++scores.good;
    else if (eq(e.state, "bad"))
      ++scores.bad;
    testTree(bot, tree, scores);
  }
}

static O dummyBot() {
  ret new O {
    L<E> get(L<E> input) { ret emptyList(); }
  };
}