sig
  val make_daemon : (unit -> unit) -> bool -> unit
  external send_file :
    src:Unix.file_descr ->
    dest:Unix.file_descr -> start:int -> len:int -> int = "stew_sendfile"
  external getservent : unit -> Unix.service_entry = "stew_getservent"
  external setservent : bool -> unit = "stew_setservent"
  external endservent : unit -> unit = "stew_endservent"
end