static L<S> tok_combineUpperCasePhrases(L<S> tok) {
  new L<S> l;
  for i over tok: {
    S t = tok.get(i);
    if (odd(i) && onlyLettersAndAllUpperCase(t)) {
      int j = i;
      while (j+2 < l(tok) && onlyLettersAndAllUpperCase(tok.get(j+2)))
        j += 2;
      if (j > i)
        l.add(joinSubList(tok, i, j+1));
      i = j;
    } else
      l.add(t);
  }
  ret l;
}

Began life as a copy of #1012539