static long applyAlwaysRules_defaultSteps = 1000;

static void applyAlwaysRules() {
  applyAlwaysRules(applyAlwaysRules_defaultSteps);
}

static void applyAlwaysRules(long maxSteps) {
  long count = 0, step = 0;
  do {
    count = lispChangeCount();
    applyAlwaysRules_step();
  } while (++step < maxSteps && lispChangeCount() != count);
}