!759

compact module CountThings > DynPrintLog {
  start {
    dm_onTopInput(voidfunc(fS s) { reactTo(s) });
  }
  
  void reactTo(fS s) enter {
    switch to q();
    new Matches m;
    if "how many * are there" {
      S singular = singular($1);
      dm_say(dm_getReverseDefinitions(a(singular)));
    }
  }
}