sig
  type t = [ `Fifo | `Other | `Round_robin ]
  val t_of_sexp : Sexplib.Sexp.t -> Unix.Scheduler.Policy.t
  val t_of_sexp__ : Sexplib.Sexp.t -> Unix.Scheduler.Policy.t
  val sexp_of_t : Unix.Scheduler.Policy.t -> Sexplib.Sexp.t
end