static Map<S, O> tokCListToWordTree(LL<S> l, S value) {
  Map<S, O> tree = ciMap();
  for (LS tok : unnull(l))
    wordTreeAdd(tree, tok, value);
  ret simplifyWordTree(tree);
}