svoid gazelle_addRulesFromConcepts(Concepts concepts, O... _) {
  bool overwrite = boolPar overwrite(_);
  L<Concept> toMerge = list(concepts, "Rule");
  for (Concept c : toMerge) {
    S ruleID = getString globalID(c);
    if (empty(ruleID))
      continue with print("No rule ID!?");
    PairS p = dm_textAndCommentForRule(ruleID);
    S text = getString text(c);
    S comments = getString comments(c);
    if (p == null) {
      print("Rule " + ruleID + ": importing");
      dm_call(dm_gazelle_rulesModule(), 'uniqConcept, globalID := ruleID, +text, +comments);
    } else {
      if (neq(text, p.a) || neq(comments, p.b)) {
        if (overwrite) {
          gazelle_setRuleText(ruleID, text);
          dm_gazelle_setRuleComments_verbose(ruleID, comments);
          print("Rule " + ruleID + ": changed");
        } else
          print("Rule " + ruleID + ": should update");
      } /*else
        print("Rule " + ruleID + ": same");*/
    }
  }
}