static LS simplifySafetyTags(Collection<S> tags) {
  LS l = uniquifyList(tags);
  if (l.contains("safe") && containsAnythingNeq(l, "safe"))
    ret listMinus(l, "safe");
  ret l;
}

sS simplifySafetyTags(S tags) {
  LS l = tokSplitAtComma(tags);
  Collection<S> l2 = simplifySafetyTags(l);
  ret l(l2) != l(l) ? joinWithComma(l2) : tags;
}