let urecord_of_data d : D.urecord = extract_from_data d