// dictionary has to be a ciSet
static Chain<S> constructWordFromCISet(S word, Set<S> dictionary) {
  if (contains(dictionary, word)) ret Chain<S>(word);
  for ping (int i = l(word)-1; i > 0; i--) {
    S prefix = takeFirst(i, word);
    if (contains(dictionary, prefix)) {
      Chain<S> chain = constructWordFromCISet(substring(word, i), dictionary);
      if (chain != null)
        ret Chain<S>(prefix, chain);
    }
  }
  null;
}