!7

concept Scenario {
  S name;
  LS conditions;
  LS actions;
}

cmodule Scenarios > DynCRUD<Scenario> {
  S answer(S s) null {
    if "how many scenarios"
      ret str(countConcepts(Scenario));
    if "delete scenario *" {
      if (nempty(deleteConceptsWhereCI Scenario(+name)))
        ret format("Scenario * deleted", name);
      else
        ret format("Scenario * not found", name);
  }
}