!7

srecord Did$HappenBefore$(O event1, O event2) {}
srecord WhenDid$Happen(O event) {}
srecord $HappensAtSecond$(O event, O y) {}

static ClassesAndPatterns classes;
sO parseArg(S s) { ret isInteger(s) ? parseInt(s) : s; }
sO parse   (S s) { ret classes.parse(s, lambda1 parseArg); }
sS unparse (O o) { ret classes.unparse(o); }

p-exp {
  classes = new ClassesAndPatterns(myRecordClasses(), mc());
  pnl(classes.entries);
  for (S s : ll(
    "Did X happen before Y",
    "when did Z happen",
    "{event 1} happens at second 100"))
    assertEqualsICVerbose(s, print("> ", unparse(parse(s))));
}