// rulesMechListName = "<default>" => default rules & facts
static L<ExecutedRule> nlLogic_processInputOrFact(S input, bool inputAsFact, S rulesMechListName) {
  ret nlLogic_processInputOrFact(input, inputAsFact,
    eq(rulesMechListName, "<default>")
      ? ai_activeRulesAndFacts()
      : pair(ai_rulesFromMechList(trim(rulesMechListName)), (LS) emptyList()));
}

static new ThreadLocal<Bool> nlLogic_processInputOrFact_allowUnsafeEvals;

static L<ExecutedRule> nlLogic_processInputOrFact(S input, bool inputAsFact, Pair<L<IfThen>, LS> rulesAndFacts) {
  new NLLogicChecker_v3 c;
  if (!inputAsFact) c.input = input;
  c.facts = reversed(rulesAndFacts.b);
  if (inputAsFact) c.facts = concatLists(ll(input), c.facts);
  c.rules = reversed(rulesAndFacts.a); // latest rules first!
  if (!inputAsFact)
    c.rules = [IfThen r : c.rules | ai_ruleAccessesInput(r)];
  if (!isTrue(nlLogic_processInputOrFact_allowUnsafeEvals!))
    c.rules = nlLogic_safeLHSEvalsOnly/*_verbose*/(c.rules);
  print("Have " + n2(rulesAndFacts.a, "rule"));
  c.useIterate = true;
  //c.staticVerbose = true;
  new L<RuleWithParams> battleSpace;
  nlLogic_fillBattleSpace(c, battleSpace, false);
  //print("l=" + l(battleSpace));
  ret map nlLogic_executedRuleFromRuleWithParams(battleSpace);
}