!include once #1022792 // often-used functions

static L<GazelleTree> gazelle_reason_repeat(S input, O... _) {
  new L<GazelleTree> out;
  
  int steps = 0, max = 10;
  while (steps++ < max) {
    addAll(out, (L<GazelleTree>) callF(optPar sendToModules(_), input));
      
    L<GazelleTree> l = gazelle_reasonWithPreAndPost(input, paramsMinus(_, 'sendToModules));
    
    // commit to one entry
    
    if (empty(l)) break;
    
    gazelle_sortBeforeCommit(l, _);
    
    GazelleTree t = first(l);
    if (boolPar debug(_) || boolPar debugCommit(_))
      print("Committing to: " + t.line + " (out of " + l(l) + ")");

    LS lines = tok_splitAtPlusAtBeginningOfLine(t.line);
    if (l(lines) == 2 && t.rule() != null && contains(t.rule().comments, "out 2 = process")) {
      print("splitting!");
      t.line = first(lines);
      out.add(t);
      input = second(lines);
      continue;
    }
    
    out.add(t);
    break;
  }
  
  ret out;
}