!7

concept XInput > BEAObject {
  S text;
}

concept XPattern > BEAObject {
  S pattern;
}

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