!7

concept MyObject {
  S myName;

  toString { ret "I am " + myName; }
}

cprint Hello {
  start {
    db();
    print("Number of objects in DB: " + countConcepts(MyObject));
    cnew MyObject(myName := "Stefan");
    print("Number of objects in DB: " + countConcepts(MyObject));
    print(list(MyObject));
  }
}