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);

}