1 let routines = [ (Repository.routine_id "ideal", Prescription.Routine.ideal) ] 2 let find id = List.assoc_opt id routines 3 4 let find_by_name name = 5 List.find_map 6 (fun (_, routine) -> 7 if String.equal (Prescription.Routine.name routine) name then Some routine 8 else None) 9 routines 10