srecord ConceptID(long id) {
  *(Concept concept) { id = concept.id; }
}