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

static new ThreadLocal<Bool> nlLogic_processInputOrFact_withFailed_allowUnsafeEvals;

static L<ExecutedRule> nlLogic_processInputOrFact_withFailed(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)];
  c.allowUnsafeEvals = isTrue(nlLogic_processInputOrFact_withFailed_allowUnsafeEvals!);
  print("Have " + n2(rulesAndFacts.a, "rule"));
  c.useIterate = true;
  //c.staticVerbose = true;
  new L<RuleWithParams> battleSpace;
  nlLogic_fillBattleSpace_collector(c, listCollector(battleSpace), false);
  //print("l=" + l(battleSpace));
  ret map nlLogic_executedRuleFromRuleWithParams(battleSpace);
}