!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);
  clearConcepts(out);
  for (Sentence s : list(in, Sentence))
    cnew(out, Sentence, text := s.text, data := lithashmap(
      subject := dropPrefix("subject=", s.action),
      verb := dropPrefix("verb=", s.verb)));
  out.persist();
}