!7

p-exp {
  BakedBot bot = bakedBotWithRules([[
    i(is $x $y?) && fact($x is $y) => o(yes)
    
    i(is $x $y?) && fact($x is not $y) => o(no)
  ]]);
  set(bot.factsBot(), standardGrouper := func(S s) -> S {
    ai_groupSimplestNounPhrasesIfUngrouped(s)
  });
  
  for (S s : tlft(mL_raw("Program 1"))) {
    L<S> l = splitAtSingleArrow(s);
    if (l(l) == 2) {
      bot.answerAuthed("!groupFacts");
      bot.pcheck(first(l), second(l));
    } else
      bot.addFact(s);
  }
  
  bot.printTestStats();
}