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

}