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