Scheduler.Expert
val set_on_start_of_cycle : (unit -> unit) -> unit
val set_on_end_of_cycle : (unit -> unit) -> unit