!7

sclass ButtonsForParser extends DynPrintLog {
  start {
    doEvery(5000, r updateMe);
  }
  
  void update {
    O parser = dm_moduleOfType("EnglishParser");
    //print("Parser: " + parser);
    if (parser == null) ret;
    Pair<S, L<ParseResult1>> p = (Pair) quickImport(getOpt(parser, 'lastResults));
    if (p == null) ret;
    for (ParseResult1 r : p.b)
      for (PairS a : r.assumptions)
        print("Got assumption: " + a);
    print();
  }
}