!7

concept BInput > BEAObject {
  S text;
}

concept BPattern > BEAObject {
  S pattern;
}

cmodule2 > DynCRUD<BEAObject> {
  start-thread {
    cnew BInput(text := "UBports community delivers 'second-largest release of Ubuntu Touch ever'");
    cnew BPattern(pattern := "* delivers *");
  }
}