!7

sclass Entry {
  S computerID, name, comment;
}

module ComputerNames > DynCRUD<Entry> {
  *() { super(Entry); }
  
  start {
    if (!hasConcept(data, computerID := computerID()))
      cnew(Entry, computerID := computerID(), comment := "This computer");
  }
}