!7

cprint {
  transient new AllOnAll<F1, O> allOnAll;
  transient new Set bs;
  
  switchable int maxSteps = 1000;

  void addB(O b) {
    if (addIfNotNull(bs, b))
      allOnAll.addB(b);
  }
  
  start-thread {
    // not sure how to integrate this into the program
    // ProbabilisticMachine2<State> pm;

    AllOnAllOperation<F1, O> op = new(allOnAll,
      (a, b) -> {
        if (callableOn_nonSynthetic(a, "get", b))
          addB(callFOpt(a, b));
      });

    allOnAll.addB(parseBasicLogicRule(
      [[Cutting Budgets on Important Emergency Vehicle Bridges
      => Cutting Budgets on {Important Emergency Vehicle Bridges}]]));

    allOnAll.addA(func(BasicLogicRule rule) -> S { toStringOpt(rule.rhs) });
    allOnAll.addA(func(S s) -> S { replaceCurlyBracedWithStars(s) });
    
    stepAllWithStats(op, maxSteps);

    pnl(allOnAll.getBs());
  }
}