transient sclass DoubleWordIndex<A> {
  new WordIndex<A> index1; // forwards (normal words)
  new WordIndex<A> index2; // backwards (reversed words)
  
  *() {}
  
  *(Comparator<A> valueComparator) {
    index1 = new WordIndex(valueComparator);
    index2 = new WordIndex(valueComparator);
  }
  
  *(Map<A, S> map) { fOr (A a, S text : map) add(a, text); }
  
  void add(A a, S text) {
    Set<S> words = extractWords(text);
    for (S word : words)
      addWord(a, word);
  }
  
  void addWord(A a, S word) {
    index1.addWord(a, word);
    index2.addWord(a, reversed(word));
  }  
  
  Set<A> get(S word) {
    ret index1.get(word);
  }
  
  Set<S> extractWords(S text) {
    ret index1.extractWords(text);
  }
  
  L<IntRange> wordRanges(S text) {
    ret index1.wordRanges(text);
  }
  
  int numWords() { ret index1.numWords(); }
}

Began life as a copy of #1024242