!752

static L<S> themap = litlist(
  "was", "is",
  "went", "go",
  "had", "have",
  "said", "say",
  "did", "do"
);

p {
  makeBot("PT");
}

answer {
  if (matchStart("topresent", s, m) || matchStart("pt", s, m))
    ret pt(m.rest());
}

static S pt(S s) {
  ret mapBasedReplace(themap, s);
}