sig
  module File_descr :
    sig
      type t = Caml.Unix.file_descr
      type hashable = t
      module Hashable : sig type t = hashable end
      val hash : hashable -> int
      module Table :
        sig
          module Key : sig type t = Hashable.t end
          val hashable : Key.t Core_hashtbl_intf.hashable
          type 'a t = (Key.t, 'a) Hashable.Table_sig(Hashable).T.t
          val clear : ('a, 'b) Hashable.Table_sig(Hashable).T.t -> unit
          val copy :
            ('a, 'b) Hashable.Table_sig(Hashable).T.t ->
            ('a, 'b) Hashable.Table_sig(Hashable).T.t
          val invariant : ('a, 'b) Hashable.Table_sig(Hashable).T.t -> unit
          val fold :
            ('a, 'b) Hashable.Table_sig(Hashable).T.t ->
            init:'->
            f:(key:'Hashable.Table_sig(Hashable).Key1.t ->
               data:'-> '-> 'c) ->
            'c
          val iter :
            ('a, 'b) Hashable.Table_sig(Hashable).T.t ->
            f:(key:'Hashable.Table_sig(Hashable).Key1.t -> data:'-> unit) ->
            unit
          val existsi :
            ('a, 'b) Hashable.Table_sig(Hashable).T.t ->
            f:(key:'Hashable.Table_sig(Hashable).Key1.t -> data:'-> bool) ->
            bool
          val exists :
            ('a, 'b) Hashable.Table_sig(Hashable).T.t ->
            f:('-> bool) -> bool
          val length : ('a, 'b) Hashable.Table_sig(Hashable).T.t -> int
          val is_empty : ('a, 'b) Hashable.Table_sig(Hashable).T.t -> bool
          val mem :
            ('a, 'b) Hashable.Table_sig(Hashable).T.t ->
            'Hashable.Table_sig(Hashable).Key1.t -> bool
          val remove :
            ('a, 'b) Hashable.Table_sig(Hashable).T.t ->
            'Hashable.Table_sig(Hashable).Key1.t -> unit
          val remove_one :
            ('a, 'b list) Hashable.Table_sig(Hashable).T.t ->
            'Hashable.Table_sig(Hashable).Key1.t -> unit
          val replace :
            ('a, 'b) Hashable.Table_sig(Hashable).T.t ->
            key:'Hashable.Table_sig(Hashable).Key1.t -> data:'-> unit
          val change :
            ('a, 'b) Hashable.Table_sig(Hashable).T.t ->
            'Hashable.Table_sig(Hashable).Key1.t ->
            ('b option -> 'b option) -> unit
          val add_multi :
            ('a, 'b list) Hashable.Table_sig(Hashable).T.t ->
            key:'Hashable.Table_sig(Hashable).Key1.t -> data:'-> unit
          val map :
            ('a, 'b) Hashable.Table_sig(Hashable).T.t ->
            f:('-> 'c) -> ('a, 'c) Hashable.Table_sig(Hashable).T.t
          val mapi :
            ('a, 'b) Hashable.Table_sig(Hashable).T.t ->
            f:(key:'Hashable.Table_sig(Hashable).Key1.t -> data:'-> 'c) ->
            ('a, 'c) Hashable.Table_sig(Hashable).T.t
          val filter_map :
            ('a, 'b) Hashable.Table_sig(Hashable).T.t ->
            f:('-> 'c option) -> ('a, 'c) Hashable.Table_sig(Hashable).T.t
          val filter_mapi :
            ('a, 'b) Hashable.Table_sig(Hashable).T.t ->
            f:(key:'Hashable.Table_sig(Hashable).Key1.t ->
               data:'-> 'c option) ->
            ('a, 'c) Hashable.Table_sig(Hashable).T.t
          val filter :
            ('a, 'b) Hashable.Table_sig(Hashable).T.t ->
            f:('-> bool) -> ('a, 'b) Hashable.Table_sig(Hashable).T.t
          val filteri :
            ('a, 'b) Hashable.Table_sig(Hashable).T.t ->
            f:(key:'Hashable.Table_sig(Hashable).Key1.t -> data:'-> bool) ->
            ('a, 'b) Hashable.Table_sig(Hashable).T.t
          val find_or_add :
            ('a, 'b) Hashable.Table_sig(Hashable).T.t ->
            'Hashable.Table_sig(Hashable).Key1.t ->
            default:(unit -> 'b) -> 'b
          val find :
            ('a, 'b) Hashable.Table_sig(Hashable).T.t ->
            'Hashable.Table_sig(Hashable).Key1.t -> 'b option
          val find_exn :
            ('a, 'b) Hashable.Table_sig(Hashable).T.t ->
            'Hashable.Table_sig(Hashable).Key1.t -> 'b
          val iter_vals :
            ('a, 'b) Hashable.Table_sig(Hashable).T.t ->
            f:('-> unit) -> unit
          val merge :
            f:(key:'Hashable.Table_sig(Hashable).Key1.t ->
               'b option -> 'c option -> 'd option) ->
            ('a, 'b) Hashable.Table_sig(Hashable).T.t ->
            ('a, 'c) Hashable.Table_sig(Hashable).T.t ->
            ('a, 'd) Hashable.Table_sig(Hashable).T.t
          val merge_into :
            f:(key:'Hashable.Table_sig(Hashable).Key1.t ->
               '-> 'b option -> 'b option) ->
            src:('a, 'b) Hashable.Table_sig(Hashable).T.t ->
            dst:('a, 'b) Hashable.Table_sig(Hashable).T.t -> unit
          val keys :
            ('a, 'b) Hashable.Table_sig(Hashable).T.t ->
            'Hashable.Table_sig(Hashable).Key1.t list
          val data : ('a, 'b) Hashable.Table_sig(Hashable).T.t -> 'b list
          val filter_inplace :
            ('a, 'b) Hashable.Table_sig(Hashable).T.t ->
            f:('-> bool) -> unit
          val filteri_inplace :
            ('a, 'b) Hashable.Table_sig(Hashable).T.t ->
            f:('Hashable.Table_sig(Hashable).Key1.t -> '-> bool) -> unit
          val equal :
            ('a, 'b) Hashable.Table_sig(Hashable).T.t ->
            ('a, 'b) Hashable.Table_sig(Hashable).T.t ->
            ('-> '-> bool) -> bool
          val to_alist :
            ('a, 'b) Hashable.Table_sig(Hashable).T.t ->
            ('Hashable.Table_sig(Hashable).Key1.t * 'b) list
          val incr :
            ?by:int ->
            ('a, int) Hashable.Table_sig(Hashable).T.t ->
            'Hashable.Table_sig(Hashable).Key1.t -> unit
          val create :
            (unit -> ('a, 'b) Hashable.Table_sig(Hashable).T.t)
            Core_hashtbl_intf.with_options
          val of_alist :
            (('Hashable.Table_sig(Hashable).Key1.t * 'b) list ->
             [ `Duplicate_key of 'Hashable.Table_sig(Hashable).Key1.t
             | `Ok of ('a, 'b) Hashable.Table_sig(Hashable).T.t ])
            Core_hashtbl_intf.with_options
          val of_alist_exn :
            (('Hashable.Table_sig(Hashable).Key1.t * 'b) list ->
             ('a, 'b) Hashable.Table_sig(Hashable).T.t)
            Core_hashtbl_intf.with_options
          val of_alist_multi :
            (('Hashable.Table_sig(Hashable).Key1.t * 'b) list ->
             ('a, 'b list) Hashable.Table_sig(Hashable).T.t)
            Core_hashtbl_intf.with_options
          val create_mapped :
            (get_key:('-> 'Hashable.Table_sig(Hashable).Key1.t) ->
             get_data:('-> 'c) ->
             'a list -> ('b, 'c) Hashable.Table_sig(Hashable).T.t)
            Core_hashtbl_intf.with_options
          val create_with_key :
            (get_key:('-> 'Hashable.Table_sig(Hashable).Key1.t) ->
             'a list -> ('b, 'a) Hashable.Table_sig(Hashable).T.t)
            Core_hashtbl_intf.with_options
          val group :
            (get_key:('-> 'Hashable.Table_sig(Hashable).Key1.t) ->
             get_data:('-> 'c) ->
             combine:('-> '-> 'c) ->
             'a list -> ('b, 'c) Hashable.Table_sig(Hashable).T.t)
            Core_hashtbl_intf.with_options
          type 'a sexpable = 'a t
          val sexp_of_t :
            ('-> Sexplib.Sexp.t) -> 'a sexpable -> Sexplib.Sexp.t
          val t_of_sexp :
            (Sexplib.Sexp.t -> 'a) -> Sexplib.Sexp.t -> 'a sexpable
        end
      module Hash_set :
        sig
          type elem = hashable
          type t = elem Hash_set.t
          type sexpable = t
          val sexp_of_t : sexpable -> Sexplib.Sexp.t
          val t_of_sexp : Sexplib.Sexp.t -> sexpable
          val create : ?growth_allowed:bool -> ?size:int -> unit -> t
          val of_list : elem list -> t
        end
      module Hash_queue :
        sig
          module Key :
            sig
              type t = hashable
              val compare : t -> t -> int
              val hash : t -> int
              type sexpable = t
              val sexp_of_t : sexpable -> Sexplib.Sexp.t
              val t_of_sexp : Sexplib.Sexp.t -> sexpable
            end
          type 'a t = 'Core_unix.File_descr.Hash_queue.t
          type 'a container = 'a t
          val length : 'a container -> int
          val is_empty : 'a container -> bool
          val iter : 'a container -> f:('-> unit) -> unit
          val fold : 'a container -> init:'-> f:('-> '-> 'b) -> 'b
          val exists : 'a container -> f:('-> bool) -> bool
          val for_all : 'a container -> f:('-> bool) -> bool
          val find : 'a container -> f:('-> bool) -> 'a option
          val to_list : 'a container -> 'a list
          val to_array : 'a container -> 'a array
          val container : ('a, 'a container) Container.type_class
          val invariant : 'a t -> unit
          val create : unit -> 'a t
          val clear : 'a t -> unit
          val mem : 'a t -> Key.t -> bool
          val lookup : 'a t -> Key.t -> 'a option
          val lookup_exn : 'a t -> Key.t -> 'a
          val enqueue : 'a t -> Key.t -> '-> [ `Key_already_present | `Ok ]
          val enqueue_exn : 'a t -> Key.t -> '-> unit
          val keys : 'a t -> Key.t list
          val dequeue : 'a t -> 'a option
          val dequeue_exn : 'a t -> 'a
          val dequeue_with_key : 'a t -> (Key.t * 'a) option
          val dequeue_with_key_exn : 'a t -> Key.t * 'a
          val dequeue_all : 'a t -> f:('-> unit) -> unit
          val remove : 'a t -> Key.t -> [ `No_such_key | `Ok ]
          val remove_exn : 'a t -> Key.t -> unit
          val replace : 'a t -> Key.t -> '-> [ `No_such_key | `Ok ]
          val replace_exn : 'a t -> Key.t -> '-> unit
          val iteri : 'a t -> f:(key:Key.t -> data:'-> unit) -> unit
          val foldi :
            'a t -> init:'-> f:('-> key:Key.t -> data:'-> 'b) -> 'b
        end
      module Hash_heap :
        sig
          module Key :
            sig
              type t = hashable
              val compare : t -> t -> int
              val hash : t -> int
              type sexpable = t
              val sexp_of_t : sexpable -> Sexplib.Sexp.t
              val t_of_sexp : Sexplib.Sexp.t -> sexpable
            end
          type 'a t = 'Core_unix.File_descr.Hash_heap.t
          val create : ?min_size:int -> ('-> '-> int) -> 'a t
          val copy : 'a t -> 'a t
          val push :
            'a t -> key:Key.t -> data:'-> [ `Key_already_present | `Ok ]
          val push_exn : 'a t -> key:Key.t -> data:'-> unit
          val replace : 'a t -> key:Key.t -> data:'-> unit
          val remove : 'a t -> Key.t -> unit
          val mem : 'a t -> Key.t -> bool
          val top : 'a t -> 'a option
          val top_exn : 'a t -> 'a
          val top_with_key : 'a t -> (Key.t * 'a) option
          val top_with_key_exn : 'a t -> Key.t * 'a
          val pop_with_key : 'a t -> (Key.t * 'a) option
          val pop_with_key_exn : 'a t -> Key.t * 'a
          val pop : 'a t -> 'a option
          val pop_exn : 'a t -> 'a
          val cond_pop_with_key :
            'a t -> (key:Key.t -> data:'-> bool) -> (Key.t * 'a) option
          val cond_pop : 'a t -> ('-> bool) -> 'a option
          val find : 'a t -> Key.t -> 'a option
          val find_pop : 'a t -> Key.t -> 'a option
          val find_exn : 'a t -> Key.t -> 'a
          val find_pop_exn : 'a t -> Key.t -> 'a
          val iter : 'a t -> f:(key:Key.t -> data:'-> unit) -> unit
          val iter_vals : 'a t -> f:('-> unit) -> unit
        end
      type sexpable = t
      val t_of_sexp : Sexplib.Sexp.t -> sexpable
      val to_int : t -> int
      val of_int : int -> t
      val to_string : t -> string
      val sexp_of_t : t -> Sexplib.Sexp.t
    end
  type error =
    Unix.error =
      E2BIG
    | EACCES
    | EAGAIN
    | EBADF
    | EBUSY
    | ECHILD
    | EDEADLK
    | EDOM
    | EEXIST
    | EFAULT
    | EFBIG
    | EINTR
    | EINVAL
    | EIO
    | EISDIR
    | EMFILE
    | EMLINK
    | ENAMETOOLONG
    | ENFILE
    | ENODEV
    | ENOENT
    | ENOEXEC
    | ENOLCK
    | ENOMEM
    | ENOSPC
    | ENOSYS
    | ENOTDIR
    | ENOTEMPTY
    | ENOTTY
    | ENXIO
    | EPERM
    | EPIPE
    | ERANGE
    | EROFS
    | ESPIPE
    | ESRCH
    | EXDEV
    | EWOULDBLOCK
    | EINPROGRESS
    | EALREADY
    | ENOTSOCK
    | EDESTADDRREQ
    | EMSGSIZE
    | EPROTOTYPE
    | ENOPROTOOPT
    | EPROTONOSUPPORT
    | ESOCKTNOSUPPORT
    | EOPNOTSUPP
    | EPFNOSUPPORT
    | EAFNOSUPPORT
    | EADDRINUSE
    | EADDRNOTAVAIL
    | ENETDOWN
    | ENETUNREACH
    | ENETRESET
    | ECONNABORTED
    | ECONNRESET
    | ENOBUFS
    | EISCONN
    | ENOTCONN
    | ESHUTDOWN
    | ETOOMANYREFS
    | ETIMEDOUT
    | ECONNREFUSED
    | EHOSTDOWN
    | EHOSTUNREACH
    | ELOOP
    | EOVERFLOW
    | EUNKNOWNERR of int
  val sexp_of_error : error -> Sexplib.Sexp.t
  val error_of_sexp : Sexplib.Sexp.t -> error
  exception Unix_error of error * string * string
  external unix_error : int -> string -> string -> 'a = "unix_error_stub"
  val error_message : error -> string
  val handle_unix_error : ('-> 'b) -> '-> 'b
  val environment : unit -> string array
  val putenv : key:string -> data:string -> unit
  val unsetenv : string -> unit
  module Process_status :
    sig
      type t =
          [ `Exited of int | `Signaled of Signal.t | `Stopped of Signal.t ]
      val sexp_of_t : t -> Sexplib.Sexp.t
      val t_of_sexp : Sexplib.Sexp.t -> t
      val t_of_sexp__ : Sexplib.Sexp.t -> t
      val is_ok : t -> bool
      val of_unix : Caml.Unix.process_status -> t
      val to_string_hum : t -> string
    end
  type wait_flag = Unix.wait_flag = WNOHANG | WUNTRACED
  val execv : prog:string -> args:string array -> 'a
  val execve : prog:string -> args:string array -> env:string array -> 'a
  val execvp : prog:string -> args:string array -> 'a
  val execvpe : prog:string -> args:string array -> env:string array -> 'a
  val fork : unit -> int
  val wait : ?restart:bool -> unit -> int * Process_status.t
  val waitpid :
    ?restart:bool -> mode:wait_flag list -> int -> int * Process_status.t
  val system : string -> Process_status.t
  val getpid : unit -> int
  val getppid : unit -> int
  val nice : int -> int
  type file_descr = Unix.file_descr
  val stdin : file_descr
  val stdout : file_descr
  val stderr : file_descr
  type open_flag =
    Unix.open_flag =
      O_RDONLY
    | O_WRONLY
    | O_RDWR
    | O_NONBLOCK
    | O_APPEND
    | O_CREAT
    | O_TRUNC
    | O_EXCL
    | O_NOCTTY
    | O_DSYNC
    | O_SYNC
    | O_RSYNC
  type file_perm = int
  val sexp_of_file_perm : file_perm -> Sexplib.Sexp.t
  val file_perm_of_sexp : Sexplib.Sexp.t -> file_perm
  val openfile :
    string -> mode:open_flag list -> perm:file_perm -> file_descr
  val close : file_descr -> unit
  val read : file_descr -> buf:string -> pos:int -> len:int -> int
  val write : file_descr -> buf:string -> pos:int -> len:int -> int
  val single_write : file_descr -> buf:string -> pos:int -> len:int -> int
  val in_channel_of_descr : file_descr -> in_channel
  val out_channel_of_descr : file_descr -> out_channel
  val descr_of_in_channel : in_channel -> file_descr
  val descr_of_out_channel : out_channel -> file_descr
  type seek_command = Unix.seek_command = SEEK_SET | SEEK_CUR | SEEK_END
  val lseek : file_descr -> int64 -> mode:seek_command -> int64
  val truncate : string -> len:int64 -> unit
  val ftruncate : file_descr -> len:int64 -> unit
  type file_kind =
    Unix.file_kind =
      S_REG
    | S_DIR
    | S_CHR
    | S_BLK
    | S_LNK
    | S_FIFO
    | S_SOCK
  val sexp_of_file_kind : file_kind -> Sexplib.Sexp.t
  val file_kind_of_sexp : Sexplib.Sexp.t -> file_kind
  type stats =
    Unix.LargeFile.stats = {
    st_dev : int;
    st_ino : int;
    st_kind : file_kind;
    st_perm : file_perm;
    st_nlink : int;
    st_uid : int;
    st_gid : int;
    st_rdev : int;
    st_size : int64;
    st_atime : float;
    st_mtime : float;
    st_ctime : float;
  }
  val sexp_of_stats : stats -> Sexplib.Sexp.t
  val stats_of_sexp : Sexplib.Sexp.t -> stats
  val stat : string -> stats
  val lstat : string -> stats
  val fstat : file_descr -> stats
  module Native_file :
    sig
      type stats =
        Unix.stats = {
        st_dev : int;
        st_ino : int;
        st_kind : file_kind;
        st_perm : file_perm;
        st_nlink : int;
        st_uid : int;
        st_gid : int;
        st_rdev : int;
        st_size : int;
        st_atime : float;
        st_mtime : float;
        st_ctime : float;
      }
      val stat : string -> stats
      val lstat : string -> stats
      val fstat : file_descr -> stats
      val lseek : file_descr -> int -> mode:seek_command -> int
      val truncate : string -> len:int -> unit
      val ftruncate : file_descr -> len:int -> unit
    end
  type lock_command =
    Unix.lock_command =
      F_ULOCK
    | F_LOCK
    | F_TLOCK
    | F_TEST
    | F_RLOCK
    | F_TRLOCK
  val lockf : file_descr -> mode:lock_command -> len:Core_int64.t -> unit
  module Flock_command :
    sig type t = Core_unix.Flock_command.t = LOCK_SH | LOCK_EX | LOCK_UN end
  val flock : file_descr -> Flock_command.t -> bool
  val isatty : file_descr -> bool
  val unlink : string -> unit
  val rename : src:string -> dst:string -> unit
  val link : ?force:bool -> target:string -> link_name:string -> unit -> unit
  val chmod : string -> perm:file_perm -> unit
  val fchmod : file_descr -> perm:file_perm -> unit
  val chown : string -> uid:int -> gid:int -> unit
  val fchown : file_descr -> uid:int -> gid:int -> unit
  val umask : int -> int
  type access_permission = Unix.access_permission = R_OK | W_OK | X_OK | F_OK
  val access : string -> perm:access_permission list -> unit
  val dup : file_descr -> file_descr
  val dup2 : src:file_descr -> dst:file_descr -> unit
  val set_nonblock : file_descr -> unit
  val clear_nonblock : file_descr -> unit
  val set_close_on_exec : file_descr -> unit
  val clear_close_on_exec : file_descr -> unit
  val mkdir : string -> perm:file_perm -> unit
  val rmdir : string -> unit
  val chdir : string -> unit
  val getcwd : unit -> string
  val chroot : string -> unit
  type dir_handle = Unix.dir_handle
  val opendir : string -> dir_handle
  val readdir : dir_handle -> string
  val rewinddir : dir_handle -> unit
  val closedir : dir_handle -> unit
  val pipe : unit -> file_descr * file_descr
  val mkfifo : string -> perm:file_perm -> unit
  module Process_info :
    sig
      type t =
        Core_unix.Process_info.t = {
        pid : int;
        stdin : file_descr;
        stdout : file_descr;
        stderr : file_descr;
      }
    end
  val create_process : prog:string -> args:string list -> Process_info.t
  val create_process_env :
    prog:string ->
    args:string list ->
    env:[ `Extend of (string * string) list
        | `Replace of (string * string) list ] ->
    Process_info.t
  val open_process_in : string -> in_channel
  val open_process_out : string -> out_channel
  val open_process : string -> in_channel * out_channel
  module Process_channels :
    sig
      type t =
        Core_unix.Process_channels.t = {
        stdin : out_channel;
        stdout : in_channel;
        stderr : in_channel;
      }
    end
  val open_process_full : string -> env:string array -> Process_channels.t
  val close_process_in : in_channel -> Process_status.t
  val close_process_out : out_channel -> Process_status.t
  val close_process : in_channel * out_channel -> Process_status.t
  val close_process_full : Process_channels.t -> Process_status.t
  val symlink : src:string -> dst:string -> unit
  val readlink : string -> string
  module Select_fds :
    sig
      type t =
        Core_unix.Select_fds.t = {
        read : file_descr list;
        write : file_descr list;
        except : file_descr list;
      }
      val empty : t
    end
  val select :
    ?restart:bool ->
    read:file_descr list ->
    write:file_descr list ->
    except:file_descr list -> timeout:float -> unit -> Select_fds.t
  val pause : unit -> unit
  type process_times =
    Unix.process_times = {
    tms_utime : float;
    tms_stime : float;
    tms_cutime : float;
    tms_cstime : float;
  }
  type tm =
    Unix.tm = {
    tm_sec : int;
    tm_min : int;
    tm_hour : int;
    tm_mday : int;
    tm_mon : int;
    tm_year : int;
    tm_wday : int;
    tm_yday : int;
    tm_isdst : bool;
  }
  val sexp_of_tm : tm -> Sexplib.Sexp.t
  val tm_of_sexp : Sexplib.Sexp.t -> tm
  val time : unit -> float
  val gettimeofday : unit -> float
  val gmtime : float -> tm
  val timegm : tm -> float
  val localtime : float -> tm
  val mktime : tm -> float * tm
  val strftime : tm -> string -> string
  val alarm : int -> int
  val sleep : int -> unit
  val nanosleep : float -> float
  val times : unit -> process_times
  val utimes : string -> access:float -> modif:float -> unit
  type interval_timer =
    Unix.interval_timer =
      ITIMER_REAL
    | ITIMER_VIRTUAL
    | ITIMER_PROF
  type interval_timer_status =
    Unix.interval_timer_status = {
    it_interval : float;
    it_value : float;
  }
  val getitimer : interval_timer -> interval_timer_status
  val setitimer :
    interval_timer -> interval_timer_status -> interval_timer_status
  val getuid : unit -> int
  val geteuid : unit -> int
  val setuid : int -> unit
  val getgid : unit -> int
  val getegid : unit -> int
  val setgid : int -> unit
  val getgroups : unit -> int array
  module Passwd :
    sig
      type t =
        Core_unix.Passwd.t = {
        name : string;
        passwd : string;
        uid : int;
        gid : int;
        gecos : string;
        dir : string;
        shell : string;
      }
      val getbyname : string -> t option
      val getbyname_exn : string -> t
      val getbyuid : int -> t option
      val getbyuid_exn : int -> t
      val setpwent : unit -> unit
      val endpwent : unit -> unit
      val getpwent : unit -> t option
      val getpwent_exn : unit -> t
    end
  module Group :
    sig
      type t =
        Core_unix.Group.t = {
        name : string;
        passwd : string;
        gid : int;
        mem : string array;
      }
      val sexp_of_t : t -> Sexplib.Sexp.t
      val getbyname : string -> t option
      val getbyname_exn : string -> t
      val getbygid : int -> t option
      val getbygid_exn : int -> t
    end
  val getlogin : unit -> string
  type inet_addr = Unix.inet_addr
  val bin_size_inet_addr : inet_addr Bin_prot.Size.sizer
  val bin_write_inet_addr : inet_addr Bin_prot.Write_ml.writer
  val bin_write_inet_addr_ : inet_addr Bin_prot.Unsafe_write_c.writer
  val bin_writer_inet_addr : inet_addr Bin_prot.Type_class.writer
  val bin_read_inet_addr : inet_addr Bin_prot.Read_ml.reader
  val bin_read_inet_addr_ : inet_addr Bin_prot.Unsafe_read_c.reader
  val bin_read_inet_addr__ : (int -> inet_addr) Bin_prot.Unsafe_read_c.reader
  val bin_reader_inet_addr : inet_addr Bin_prot.Type_class.reader
  val bin_inet_addr : inet_addr Bin_prot.Type_class.t
  val sexp_of_inet_addr : inet_addr -> Sexplib.Sexp.t
  val inet_addr_of_sexp : Sexplib.Sexp.t -> inet_addr
  val inet_addr_of_string : string -> inet_addr
  val string_of_inet_addr : inet_addr -> string
  val inet_addr_any : inet_addr
  val inet_addr_loopback : inet_addr
  val inet6_addr_any : inet_addr
  val inet6_addr_loopback : inet_addr
  type socket_domain = Unix.socket_domain = PF_UNIX | PF_INET | PF_INET6
  val bin_size_socket_domain : socket_domain Bin_prot.Size.sizer
  val bin_write_socket_domain : socket_domain Bin_prot.Write_ml.writer
  val bin_write_socket_domain_ : socket_domain Bin_prot.Unsafe_write_c.writer
  val bin_writer_socket_domain : socket_domain Bin_prot.Type_class.writer
  val bin_read_socket_domain : socket_domain Bin_prot.Read_ml.reader
  val bin_read_socket_domain_ : socket_domain Bin_prot.Unsafe_read_c.reader
  val bin_read_socket_domain__ :
    (int -> socket_domain) Bin_prot.Unsafe_read_c.reader
  val bin_reader_socket_domain : socket_domain Bin_prot.Type_class.reader
  val bin_socket_domain : socket_domain Bin_prot.Type_class.t
  val sexp_of_socket_domain : socket_domain -> Sexplib.Sexp.t
  val socket_domain_of_sexp : Sexplib.Sexp.t -> socket_domain
  type socket_type =
    Unix.socket_type =
      SOCK_STREAM
    | SOCK_DGRAM
    | SOCK_RAW
    | SOCK_SEQPACKET
  val bin_size_socket_type : socket_type Bin_prot.Size.sizer
  val bin_write_socket_type : socket_type Bin_prot.Write_ml.writer
  val bin_write_socket_type_ : socket_type Bin_prot.Unsafe_write_c.writer
  val bin_writer_socket_type : socket_type Bin_prot.Type_class.writer
  val bin_read_socket_type : socket_type Bin_prot.Read_ml.reader
  val bin_read_socket_type_ : socket_type Bin_prot.Unsafe_read_c.reader
  val bin_read_socket_type__ :
    (int -> socket_type) Bin_prot.Unsafe_read_c.reader
  val bin_reader_socket_type : socket_type Bin_prot.Type_class.reader
  val bin_socket_type : socket_type Bin_prot.Type_class.t
  val sexp_of_socket_type : socket_type -> Sexplib.Sexp.t
  val socket_type_of_sexp : Sexplib.Sexp.t -> socket_type
  type sockaddr =
    Unix.sockaddr =
      ADDR_UNIX of string
    | ADDR_INET of inet_addr * int
  val bin_size_sockaddr : sockaddr Bin_prot.Size.sizer
  val bin_write_sockaddr : sockaddr Bin_prot.Write_ml.writer
  val bin_write_sockaddr_ : sockaddr Bin_prot.Unsafe_write_c.writer
  val bin_writer_sockaddr : sockaddr Bin_prot.Type_class.writer
  val bin_read_sockaddr : sockaddr Bin_prot.Read_ml.reader
  val bin_read_sockaddr_ : sockaddr Bin_prot.Unsafe_read_c.reader
  val bin_read_sockaddr__ : (int -> sockaddr) Bin_prot.Unsafe_read_c.reader
  val bin_reader_sockaddr : sockaddr Bin_prot.Type_class.reader
  val bin_sockaddr : sockaddr Bin_prot.Type_class.t
  val sexp_of_sockaddr : sockaddr -> Sexplib.Sexp.t
  val sockaddr_of_sexp : Sexplib.Sexp.t -> sockaddr
  val domain_of_sockaddr : sockaddr -> socket_domain
  val socket :
    domain:socket_domain -> kind:socket_type -> protocol:int -> file_descr
  val socketpair :
    domain:socket_domain ->
    kind:socket_type -> protocol:int -> file_descr * file_descr
  val accept : file_descr -> file_descr * sockaddr
  val bind : file_descr -> addr:sockaddr -> unit
  val connect : file_descr -> addr:sockaddr -> unit
  val listen : file_descr -> max:int -> unit
  type shutdown_command =
    Unix.shutdown_command =
      SHUTDOWN_RECEIVE
    | SHUTDOWN_SEND
    | SHUTDOWN_ALL
  val shutdown : file_descr -> mode:shutdown_command -> unit
  val getsockname : file_descr -> sockaddr
  val getpeername : file_descr -> sockaddr
  type msg_flag = Unix.msg_flag = MSG_OOB | MSG_DONTROUTE | MSG_PEEK
  val recv :
    file_descr ->
    buf:string -> pos:int -> len:int -> mode:msg_flag list -> int
  val recvfrom :
    file_descr ->
    buf:string -> pos:int -> len:int -> mode:msg_flag list -> int * sockaddr
  val send :
    file_descr ->
    buf:string -> pos:int -> len:int -> mode:msg_flag list -> int
  val sendto :
    file_descr ->
    buf:string ->
    pos:int -> len:int -> mode:msg_flag list -> addr:sockaddr -> int
  type socket_bool_option =
    Core_unix.socket_bool_option =
      SO_DEBUG
    | SO_BROADCAST
    | SO_REUSEADDR
    | SO_KEEPALIVE
    | SO_DONTROUTE
    | SO_OOBINLINE
    | SO_ACCEPTCONN
    | TCP_NODELAY
    | IPV6_ONLY
  type socket_int_option =
    Core_unix.socket_int_option =
      SO_SNDBUF
    | SO_RCVBUF
    | SO_ERROR
    | SO_TYPE
    | SO_RCVLOWAT
    | SO_SNDLOWAT
  type socket_optint_option = Core_unix.socket_optint_option = SO_LINGER
  type socket_float_option =
    Core_unix.socket_float_option =
      SO_RCVTIMEO
    | SO_SNDTIMEO
  val getsockopt : file_descr -> socket_bool_option -> bool
  val setsockopt : file_descr -> socket_bool_option -> bool -> unit
  val getsockopt_int : file_descr -> socket_int_option -> int
  val setsockopt_int : file_descr -> socket_int_option -> int -> unit
  val getsockopt_optint : file_descr -> socket_optint_option -> int option
  val setsockopt_optint :
    file_descr -> socket_optint_option -> int option -> unit
  val getsockopt_float : file_descr -> socket_float_option -> float
  val setsockopt_float : file_descr -> socket_float_option -> float -> unit
  val open_connection : sockaddr -> in_channel * out_channel
  val shutdown_connection : in_channel -> unit
  val establish_server :
    (in_channel -> out_channel -> unit) -> addr:sockaddr -> unit
  val gethostname : unit -> string
  module Host :
    sig
      type t =
        Core_unix.Host.t = {
        name : string;
        aliases : string array;
        addrtype : socket_domain;
        addrs : inet_addr array;
      }
      val getbyname : string -> t option
      val getbyname_exn : string -> t
      val getbyaddr : inet_addr -> t option
      val getbyaddr_exn : inet_addr -> t
    end
  module Protocol :
    sig
      type t =
        Core_unix.Protocol.t = {
        name : string;
        aliases : string array;
        proto : int;
      }
      val getbyname : string -> t option
      val getbyname_exn : string -> t
      val getbynumber : int -> t option
      val getbynumber_exn : int -> t
    end
  module Service :
    sig
      type t =
        Core_unix.Service.t = {
        name : string;
        aliases : string array;
        port : int;
        proto : string;
      }
      val getbyname : string -> protocol:string -> t option
      val getbyname_exn : string -> protocol:string -> t
      val getbyport : int -> protocol:string -> t option
      val getbyport_exn : int -> protocol:string -> t
    end
  type addr_info =
    Core_unix.addr_info = {
    ai_family : socket_domain;
    ai_socktype : socket_type;
    ai_protocol : int;
    ai_addr : sockaddr;
    ai_canonname : string;
  }
  type getaddrinfo_option =
    Core_unix.getaddrinfo_option =
      AI_FAMILY of socket_domain
    | AI_SOCKTYPE of socket_type
    | AI_PROTOCOL of int
    | AI_NUMERICHOST
    | AI_CANONNAME
    | AI_PASSIVE
  val getaddrinfo :
    string -> string -> getaddrinfo_option list -> addr_info list
  type name_info =
    Core_unix.name_info = {
    ni_hostname : string;
    ni_service : string;
  }
  type getnameinfo_option =
    Core_unix.getnameinfo_option =
      NI_NOFQDN
    | NI_NUMERICHOST
    | NI_NAMEREQD
    | NI_NUMERICSERV
    | NI_DGRAM
  val getnameinfo : sockaddr -> getnameinfo_option list -> name_info
  val get_terminal_size : unit -> int * int
  module Terminal_io :
    sig
      type t =
        Unix.terminal_io = {
        mutable c_ignbrk : bool;
        mutable c_brkint : bool;
        mutable c_ignpar : bool;
        mutable c_parmrk : bool;
        mutable c_inpck : bool;
        mutable c_istrip : bool;
        mutable c_inlcr : bool;
        mutable c_igncr : bool;
        mutable c_icrnl : bool;
        mutable c_ixon : bool;
        mutable c_ixoff : bool;
        mutable c_opost : bool;
        mutable c_obaud : int;
        mutable c_ibaud : int;
        mutable c_csize : int;
        mutable c_cstopb : int;
        mutable c_cread : bool;
        mutable c_parenb : bool;
        mutable c_parodd : bool;
        mutable c_hupcl : bool;
        mutable c_clocal : bool;
        mutable c_isig : bool;
        mutable c_icanon : bool;
        mutable c_noflsh : bool;
        mutable c_echo : bool;
        mutable c_echoe : bool;
        mutable c_echok : bool;
        mutable c_echonl : bool;
        mutable c_vintr : char;
        mutable c_vquit : char;
        mutable c_verase : char;
        mutable c_vkill : char;
        mutable c_veof : char;
        mutable c_veol : char;
        mutable c_vmin : int;
        mutable c_vtime : int;
        mutable c_vstart : char;
        mutable c_vstop : char;
      }
      val sexp_of_t : t -> Sexplib.Sexp.t
      type setattr_when = Unix.setattr_when = TCSANOW | TCSADRAIN | TCSAFLUSH
      val sexp_of_setattr_when : setattr_when -> Sexplib.Sexp.t
      val tcgetattr : file_descr -> t
      val tcsetattr : file_descr -> mode:setattr_when -> t -> unit
      val tcsendbreak : file_descr -> duration:int -> unit
      val tcdrain : file_descr -> unit
      type flush_queue = Unix.flush_queue = TCIFLUSH | TCOFLUSH | TCIOFLUSH
      val tcflush : file_descr -> mode:flush_queue -> unit
      type flow_action = Unix.flow_action = TCOOFF | TCOON | TCIOFF | TCION
      val tcflow : file_descr -> mode:flow_action -> unit
      val setsid : unit -> int
    end
  val get_inet_addr : string -> inet_addr
  val get_sockaddr : string -> int -> sockaddr
  val set_in_channel_timeout : in_channel -> float -> unit
  val set_out_channel_timeout : out_channel -> float -> unit
  external exit_immediately : int -> 'a = "caml_sys_exit"
  val mknod :
    ?file_kind:file_kind ->
    ?perm:int -> ?major:int -> ?minor:int -> string -> unit
  module IOVec :
    sig
      type 'a t =
        'Core_unix.IOVec.t = private {
        buf : 'a;
        pos : int;
        len : int;
      }
      type 'a kind = 'Core_unix.IOVec.kind
      type bigstring =
          (char, Bigarray.int8_unsigned_elt, Bigarray.c_layout)
          Bigarray.Array1.t
      val string_kind : string kind
      val bigstring_kind : bigstring kind
      val empty : 'a kind -> 'a t
      val of_string : ?pos:int -> ?len:int -> string -> string t
      val of_bigstring : ?pos:int -> ?len:int -> bigstring -> bigstring t
      val drop : 'a t -> int -> 'a t
      val max_iovecs : int
    end
  external int_of_file_descr : file_descr -> int = "%identity"
  external file_descr_of_int : int -> file_descr = "%identity"
  external dirfd : dir_handle -> file_descr = "unix_dirfd"
  external sync : unit -> unit = "unix_sync"
  external fsync : file_descr -> unit = "unix_fsync"
  external fdatasync : file_descr -> unit = "unix_fdatasync"
  external readdir_ino : dir_handle -> string * nativeint
    = "unix_readdir_ino_stub"
  val read_assume_fd_is_nonblocking :
    file_descr -> ?pos:int -> ?len:int -> string -> int
  val write_assume_fd_is_nonblocking :
    file_descr -> ?pos:int -> ?len:int -> string -> int
  val writev_assume_fd_is_nonblocking :
    file_descr -> ?count:int -> string IOVec.t array -> int
  val writev : file_descr -> ?count:int -> string IOVec.t array -> int
  external pselect :
    file_descr list ->
    file_descr list ->
    file_descr list ->
    float -> int list -> file_descr list * file_descr list * file_descr list
    = "unix_pselect_stub"
  module RLimit :
    sig
      type limit = Core_unix.RLimit.limit = Limit of int64 | Infinity
      val sexp_of_limit : limit -> Sexplib.Sexp.t
      val limit_of_sexp : Sexplib.Sexp.t -> limit
      type t = Core_unix.RLimit.t = { cur : limit; max : limit; }
      val sexp_of_t : t -> Sexplib.Sexp.t
      val t_of_sexp : Sexplib.Sexp.t -> t
      type resource =
          [ `Core_file_size
          | `Cpu_seconds
          | `Data_segment
          | `File_size
          | `Num_file_descriptors
          | `Stack
          | `Virtual_memory ]
      val sexp_of_resource : resource -> Sexplib.Sexp.t
      val resource_of_sexp : Sexplib.Sexp.t -> resource
      val resource_of_sexp__ : Sexplib.Sexp.t -> resource
      val get : resource -> t
      val set : resource -> t -> unit
    end
  module Resource_usage :
    sig
      type who = Core_unix.Resource_usage.who = SELF | CHILDREN
      type t = Core_unix.Resource_usage.t
      val get : who -> t
      val utime : t -> float
      val stime : t -> float
      val maxrss : t -> int64
      val ixrss : t -> int64
      val idrss : t -> int64
      val isrss : t -> int64
      val minflt : t -> int64
      val majflt : t -> int64
      val nswap : t -> int64
      val inblock : t -> int64
      val oublock : t -> int64
      val msgsnd : t -> int64
      val msgrcv : t -> int64
      val nsignals : t -> int64
      val nvcsw : t -> int64
      val nivcsw : t -> int64
      val add : t -> t -> t
    end
  type sysconf =
    Core_unix.sysconf =
      ARG_MAX
    | CHILD_MAX
    | HOST_NAME_MAX
    | LOGIN_NAME_MAX
    | OPEN_MAX
    | PAGESIZE
    | RE_DUP_MAX
    | STREAM_MAX
    | SYMLOOP_MAX
    | TTY_NAME_MAX
    | TZNAME_MAX
    | POSIX_VERSION
    | PHYS_PAGES
    | AVPHYS_PAGES
    | IOV_MAX
  external sysconf : sysconf -> int64 = "unix_sysconf"
  val mkstemp : string -> string * Unix.file_descr
  val mkdtemp : string -> string
  external abort : unit -> 'a = "unix_abort" "noalloc"
  external initgroups : string -> int -> unit = "unix_initgroups"
  val fnmatch :
    ?flags:[ `Casefold
           | `File_name
           | `Leading_dir
           | `No_escape
           | `Pathname
           | `Period ] list ->
    pat:string -> string -> bool
  val wordexp :
    ?flags:[ `No_cmd | `Show_err | `Undef ] list -> string -> string array
  module Utsname :
    sig
      type t = Core_unix.Utsname.t
      val sysname : t -> string
      val nodename : t -> string
      val release : t -> string
      val version : t -> string
      val machine : t -> string
    end
  val uname : unit -> Utsname.t
  external if_indextoname : int -> string = "unix_if_indextoname"
  external mcast_join : ?ifname:string -> file_descr -> sockaddr -> unit
    = "unix_mcast_join"
  external mcast_leave : ?ifname:string -> file_descr -> sockaddr -> unit
    = "unix_mcast_leave"
  module Scheduler :
    sig
      module Policy :
        sig
          type t = [ `Fifo | `Other | `Round_robin ]
          val sexp_of_t : t -> Sexplib.Sexp.t
          val t_of_sexp : Sexplib.Sexp.t -> t
          val t_of_sexp__ : Sexplib.Sexp.t -> t
        end
      val set : pid:int -> policy:Policy.t -> priority:int -> unit
    end
  module Priority : sig external nice : int -> int = "unix_nice" end
  val get_num_open_fds : unit -> int
  module Mman :
    sig
      module Mcl_flags :
        sig
          type t = Core_unix.Mman.Mcl_flags.t = Current | Future
          val sexp_of_t : t -> Sexplib.Sexp.t
          val t_of_sexp : Sexplib.Sexp.t -> t
        end
      val mlockall : Mcl_flags.t list -> unit
      val munlockall : unit -> unit
    end
end