static PTElement ai_parseToTreeWithCurlyPhrases(S input) {
  ret ai_parseToTreeWithCurlyPhrases(input, new AI_BottomUpParser1);
}

static PTElement ai_parseToTreeWithCurlyPhrases(S input, AI_BottomUpParser1 parser) {
  L<S> tok = javaTokPlusBrackets(input);
  tok = dropPunctuation(tok);
  //pnlStruct(tok);

  // Pre-parse curly fragments & guess categories for unknown words
  Map<S, Map<S, Double>> guessMap = new HashMap;
  parser.wordsToCategories = DerivedMap(ai_wordToCategories());
  for (int i = 1; i < l(tok); i += 2) {
    S t = tok.get(i);
    if (isCurlyBraced(t)) {
      tok.set(i, t = uncurly(t));
      PTElement tree = ai_parseToTreeWithGuessing(t);
      if (tree != null) {
        //preparsed.put(i, tree);
        //print(className(tree));
        //print(ai_renderCulledParseTree(tree));
        
        if (!tree instanceof ChooseCategory)
          print("Weird: " + className(tree));
        else {
          for (HaveCategory c : (L<HaveCategory>) (L) tree.children)
            subHashMap(guessMap, t).put(c.category, c.totalWeight);
        }
      } else {
        //print("No parse for " + t);
      }
    } else if (ai_isUncategorizedWord(t))
      guessMap.put(t, ai_guessCategoriesForUnknownWord_weighted(t));
  }
  
  temp tempSetThreadLocal(ai_getWordToCategoryWeight_map, guessMap);
  for (S word : keys(guessMap))
    parser.wordsToCategories.put(word, keys(guessMap.get(word)));
  ret ai_parseBottomUpToTree(parser, tok);
}