!7

p {
  callAnswerFunctionVerbose("Can you tell me what time it is?");
}

sclass TokConsumer {
  L<S> l;
  int i;
  
  *(L<S> *l) {}
  
  S peek() { ret get(l, i); }
  S next() { ret get(l, i++); }
}

sS answer(S s) {
  L<S> tok = codeTokens(dropPunctuation(javaTok(s)));
  TokConsumer c = new(tok);
  S verb = consumeVerb(c);
  if (verb != null) {
    S noun = consumeNoun(c);
    if (noun != null)
      ret group(verb, noun, rest(c));
  }
  ret joinWithSpace(tok);
}

static Set<S> verbs = asSet(splitAtSpace("can does will"));
static Set<S> nouns = asSet(splitAtSpace("i you he she it we someone"));

static S consumeVerb(TokConsumer c) {
  ret consumeFromList(verbs, c);
}

static S consumeNoun(TokConsumer c) {
  ret consumeFromList(nouns, c);
}

static S consumeFromList(Set<S> set, TokConsumer c) {
  if (set.contains(toLower(c.peek())))
    ret c.next();
  null;
}

sS group(S... parts) {
  new L<S> l;
  for (S part : parts)
    l.addAll(javaTokC(part));
  ret joinWithSpace(l);
}