static L<S> countFixer_them = splitAtSpace("nd st rd th");

static S countFixer(S s) {

  L<S> tok = nlTok2(s);

  for (int i = 1; i+2 < l(tok); i += 2)

    if (isInteger(tok.get(i)) && contains(countFixer_them, tok.get(i+2))) pcall {

      // Is it correct?

      long l = parseLong(tok.get(i));

      long d = l % 10, h = l % 100;

      tok.set(i+2, h-d == 10 ? "th"

        : d == 1 ? "st"

        : d == 2 ? "nd"

        : d == 3 ? "rd"

        : "th");

    }

  ret join(tok);

}