svoid gazelle_splitMultiRule_v2(S ruleID) {

  PairS p = dm_textAndCommentForRule(ruleID);

  if (p == null || !cic(p.b, "multi-rule")) ret;

  LPair<S> lines = ai_findDoubleArrowRulesAsPairs(p.a);

  Set<S> textsNeeded = asSet(mapPairsToList gazelle_constructRuleText(lines));

  S extractedComment = "extracted from multi-rule " + ruleID;

  S deployedPrefix = "deployed as rule ";

  LS allComments = tlft(p.b);

  LS coreComments = listWithoutIC(allComments, "multi-rule");

  L<T3S> rules = dm_gazelle_allRulesWithComment(extractedComment);

  LS coreComments2 = withoutStartingWithIC(coreComments, deployedPrefix);

  S commentsForDeployed = lines_rtrim(listPlus(coreComments2, extractedComment));

  new LS deployed;

  for (T3S t : rules)

    if (!textsNeeded.remove(t.a))

      gazelle_deleteRule(t.c);

    else {

      gazelle_setRuleComment(t.c, commentsForDeployed);

      deployed.add(t.c);

    }

  for (S text : textsNeeded)

    deployed.add(dm_gazelle_addRuleWithComment(text, commentsForDeployed).a);

  LS allComments2 = withoutStartingWithIC(allComments, deployedPrefix);

  for (S deployedID : deployed)

    allComments2.add(deployedPrefix + deployedID);

  gazelle_setRuleComment(ruleID, allComments2);

}