transient sclass SingleTextWordIndex {
  S regexp = "\\w+";
  new ElementInstanceMatrix<Int, S> wordMatrix;
  
  *(S text) {
    for (IntRange r : regexpFindRanges(regexp, text))
      wordMatrix.add(r.start, ll(upper(substring(text, r))));
  }
}