transient sclass DeepWordIndex<A> {
  S regexp = "\\w+";
  
  new Map<A, Entry> entries;
  MultiSetMap<S, Entry> entriesByWord = ciMultiSetMap();
  
  sclass Entry<A> {
    A id;
    Map<S, int[]> wordPositions = ciMap();
    
    *(A *id) {}
  }
  
  L<IntRange> wordRanges(S text) {
    ret regexpFindRanges(regexp, text);
  }
   
  void add(A a, S text) {
    Entry<A> e = entries.get(a);
    if (e == null) entries.put(a, new Entry<A>(a));
    MultiMap<S, Int> wordPositions = ciMultiMap();
    for (IntRange r : wordRanges(text)) {
      S word = substring(text, r);
      wordPositions.put(word, r.start);
      entriesByWord.put(word, e);
    }
    for (S word : keys(wordPositions))
      e.wordPositions.put(word, toIntArray(wordPositions.get(word)));
  }
}