!7

// a stage can be not started, running or done
sclass Stage {
  S stageName;
  long started, done; // timestamps
  O result;
  S log;
}

cmodule MultiStageProcessing > DynObjectTable<Stage> {
  // API
  
  Stage addStage(S stageName) {
    Stage s = nu Stage(+stageName);
    add(s);
    ret s;
  }
}