1 (** The routine catalog: the presets the book supports. Shared by every 2 repository adapter, and not trainee-scoped — a routine is authored, not 3 owned. *) 4 5 val routines : (Repository.routine_id * Prescription.Routine.t) list 6 (** Seeded with HD1's Ideal Routine, the one preset the book supports. *) 7 8 val find : Repository.routine_id -> Prescription.Routine.t option 9 val find_by_name : string -> Prescription.Routine.t option 10