!7

concept Def {
  long updated;
  S inputTerm, outputTerm;
  L<S> definitions;
}

p-subst {
  db();
  veryBigConsole();
  botDemo("juice", "money");
}

answer {
  s = trim(s);
  Pair<S, L<S>> p = macmillanDefinitions2(s);
  cset(uniq(Def, inputTerm := s), outputTerm := p.a, definitions := p.b, updated := now());
  print("== " + p.a + " ==");
  pnl(p.b);
  try answer first(p.b);
}