sS fieldNameForConceptLink(Concept from, Concept to) {
  for (Pair<Concept.Ref, S> p : scanConceptForRefsWithFieldNames(from))
    if (derefRef(p.a) == to)
      ret p.b;
  null;
}