!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)) {
    SS data = lithashmap(
      subject := dropPrefix("subject=", s.action),
      verb := dropPrefix("verb=", s.verb));
    if (nempty(data)) print(quote(s.text) + " => " + struct(data));
    cnew(out, Sentence, text := s.text, +data);
  }
  out.persist();
}