!7

concept Sentence {
  S text;
  S action; // subject
  S verb;
  new SS data;
}

p {
  Concepts in = new Concepts(#1008607).load();
  Concepts out = new Concepts(#1008692);
  out.persist();
  clearConcepts(out);
  for (Sentence s : list(in, Sentence)) {
    SS data = lithashmap(
      subject := dropPrefix("subject=", s.action),
      verb := dropPrefix("verb=", s.verb));
    Sentence s2 = cnew(out, Sentence, text := s.text, +data);
    if (nempty(data)) {
      print(quote(s.text) + " => " + struct(data));
      printConcept(s2);
    }
  }
}