sS transferCurlyBracketPhrases(S src, S dest) {
  ret groupUsingWordTree(dest, listToWordTree(allCurlyBracketPhrases(src)));
}