static Triple<S> ai_tripelize(S s) {
  S x = "";
  if (endsWith(s, "?")) x = " (?)"; // statement with question mark, e.g. "Al Gore invented the Internet?"
  Triple<S> t = ai_tripelize_impl(dropCertainPunctuationAtEnd(s, ":;,?!."));
  ai_fixTriple(t);
  if (t != null && !endsWith(t.b, "?")) t.b += x;
  ret t;
}
  
static Triple<S> ai_tripelize_impl(S s) {
  L<S> original = ai_tok_combinePhrases(tok_combineCurlyBrackets_keep(nlTok(s)));
  if (l(original) <= 1) null; // no tokens
  L<S> tok = original;
  S a = get(tok, 1);

  T3<S> triple = ai_tripelize_howLongEtc(s, original);
  if (triple != null) ret triple;
  
  if (ai_questionWord_1(a)) { tok = subList(tok, 2); a = get(tok, 1); }
  S before = trimJoinSubList(original, 0, indexOfSubList(original, tok));
  
  if (ai_yesNoQuestionWord_1(a) && neqicOneOf(a, "am", "are", "is")) {
    L<S> tok2 = subList(tok, 2);
    int i = indexOfFirstVerb(tok2);
    S v = get(tok2, i);
    if (v != null) {
      S middle = trimJoinSubList(tok2, 0, i);
      S rest = trimJoinSubList(tok2, i+1);
      // a = "do", middle, v = "love", rest = "me"
      if (eqic(a, "does")) v = verbToThirdPerson(v) + "?";
      else if (eqic(a, "do")) v = v + "?";
      else if (eqic(a, "did")) v = verbToPast(v) + "?";
      else v = a + " " + v + "?";
      ret triple(joinWithSpace2(before, middle), v, rest);
    }
  }
  if (isVerb(a)) {
    tok = subList(tok, 2);
    int i = ai_splitTwoNounPhrases(tok);
    //int i = ai_endOfNounPhrase(tok);
    ret triple(
      trimJoinSubList(tok, 0, i),
      a + "?",
      trimJoinSubList(tok, i));
  }
  
  int i = ai_endOfNounPhrase(tok);
  int j = indexOfFirstVerb(tok, i);
  if (j < 0) ret triple(s, "?", "?");
  ret triple(
    joinWithSpace2(before, trimJoinSubList(tok, 0, j)),
    tok.get(j),
    trimJoinSubList(tok, j+2));
}