// 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);

}