sS dropMinusFromZero(S s) {
  S g = regexpFirstGroup("^-([0-9\\.]+)", s);
  ret nempty(g) && !regexpFind("[1-9]", g) ? dropPrefix("-", s) : s;
}