static void copyConceptFields(Concept a, Concept b) {
  for (S field : conceptFields(a))
    cset(b, field, cget(a, field));
}