sig
  module Policy :
    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
  val set :
    pid:Pid.t option ->
    policy:Unix.Scheduler.Policy.t -> priority:int -> unit
end