static Lisp snlSimplifyJuxta(Lisp tree) {
  if (!isJuxta(tree)) ret tree;
  
  new L<S> op;
  new L<Lisp> parts;
  for (Lisp part : tree)
    if (part.isEmpty() && startsWithLowerCase(part.head))
      op.add(part.head);
    else {
      op.add("*");
      parts.add(part);
    }
  Lisp result = lisp(join(" ", op), parts);
  print("Simplified " + tree + " to " + result);
  result.more = tree.more;
  ret result;
}