sig
  module type S =
    sig
      type t
      val bin_size_t : t Bin_prot.Size.sizer
      val bin_write_t : t Bin_prot.Write.writer
      val bin_read_t : t Bin_prot.Read.reader
      val __bin_read_t__ : (int -> t) Bin_prot.Read.reader
      val bin_writer_t : t Bin_prot.Type_class.writer
      val bin_reader_t : t Bin_prot.Type_class.reader
      val bin_t : t Bin_prot.Type_class.t
    end
  module type S1 =
    sig
      type 'a t
      val bin_size_t : ('a, 'a t) Bin_prot.Size.sizer1
      val bin_write_t : ('a, 'a t) Bin_prot.Write.writer1
      val bin_read_t : ('a, 'a t) Bin_prot.Read.reader1
      val __bin_read_t__ : ('a, int -> 'a t) Bin_prot.Read.reader1
      val bin_writer_t : ('a, 'a t) Bin_prot.Type_class.S1.writer
      val bin_reader_t : ('a, 'a t) Bin_prot.Type_class.S1.reader
      val bin_t : ('a, 'a t) Bin_prot.Type_class.S1.t
    end
  module type S2 =
    sig
      type ('a, 'b) t
      val bin_size_t : ('a, 'b, ('a, 'b) t) Bin_prot.Size.sizer2
      val bin_write_t : ('a, 'b, ('a, 'b) t) Bin_prot.Write.writer2
      val bin_read_t : ('a, 'b, ('a, 'b) t) Bin_prot.Read.reader2
      val __bin_read_t__ : ('a, 'b, int -> ('a, 'b) t) Bin_prot.Read.reader2
      val bin_writer_t : ('a, 'b, ('a, 'b) t) Bin_prot.Type_class.S2.writer
      val bin_reader_t : ('a, 'b, ('a, 'b) t) Bin_prot.Type_class.S2.reader
      val bin_t : ('a, 'b, ('a, 'b) t) Bin_prot.Type_class.S2.t
    end
  module List :
    sig
      val length : 'a list -> int
      val hd : 'a list -> 'a
      val tl : 'a list -> 'a list
      val nth : 'a list -> int -> 'a
      val rev : 'a list -> 'a list
      val append : 'a list -> 'a list -> 'a list
      val rev_append : 'a list -> 'a list -> 'a list
      val concat : 'a list list -> 'a list
      val flatten : 'a list list -> 'a list
      val iter : f:('a -> unit) -> 'a list -> unit
      val iteri : f:(int -> 'a -> unit) -> 'a list -> unit
      val map : f:('a -> 'b) -> 'a list -> 'b list
      val mapi : f:(int -> 'a -> 'b) -> 'a list -> 'b list
      val rev_map : f:('a -> 'b) -> 'a list -> 'b list
      val fold_left : f:('a -> 'b -> 'a) -> init:'a -> 'b list -> 'a
      val fold_right : f:('a -> 'b -> 'b) -> 'a list -> init:'b -> 'b
      val iter2 : f:('a -> 'b -> unit) -> 'a list -> 'b list -> unit
      val map2 : f:('a -> 'b -> 'c) -> 'a list -> 'b list -> 'c list
      val rev_map2 : f:('a -> 'b -> 'c) -> 'a list -> 'b list -> 'c list
      val fold_left2 :
        f:('a -> 'b -> 'c -> 'a) -> init:'a -> 'b list -> 'c list -> 'a
      val fold_right2 :
        f:('a -> 'b -> 'c -> 'c) -> 'a list -> 'b list -> init:'c -> 'c
      val for_all : f:('a -> bool) -> 'a list -> bool
      val exists : f:('a -> bool) -> 'a list -> bool
      val for_all2 : f:('a -> 'b -> bool) -> 'a list -> 'b list -> bool
      val exists2 : f:('a -> 'b -> bool) -> 'a list -> 'b list -> bool
      val mem : 'a -> set:'a list -> bool
      val memq : 'a -> set:'a list -> bool
      val find : f:('a -> bool) -> 'a list -> 'a
      val filter : f:('a -> bool) -> 'a list -> 'a list
      val find_all : f:('a -> bool) -> 'a list -> 'a list
      val partition : f:('a -> bool) -> 'a list -> 'a list * 'a list
      val assoc : 'a -> ('a * 'b) list -> 'b
      val assq : 'a -> ('a * 'b) list -> 'b
      val mem_assoc : 'a -> map:('a * 'b) list -> bool
      val mem_assq : 'a -> map:('a * 'b) list -> bool
      val remove_assoc : 'a -> ('a * 'b) list -> ('a * 'b) list
      val remove_assq : 'a -> ('a * 'b) list -> ('a * 'b) list
      val split : ('a * 'b) list -> 'a list * 'b list
      val combine : 'a list -> 'b list -> ('a * 'b) list
      val sort : cmp:('a -> 'a -> int) -> 'a list -> 'a list
      val stable_sort : cmp:('a -> 'a -> int) -> 'a list -> 'a list
      val fast_sort : cmp:('a -> 'a -> int) -> 'a list -> 'a list
      val merge : cmp:('a -> 'a -> int) -> 'a list -> 'a list -> 'a list
    end
  module Of_stringable :
    functor (M : Stringable.S) ->
      sig
        val bin_size_t : M.t Bin_prot.Size.sizer
        val bin_write_t : M.t Bin_prot.Write.writer
        val bin_read_t : M.t Bin_prot.Read.reader
        val __bin_read_t__ : (int -> M.t) Bin_prot.Read.reader
        val bin_writer_t : M.t Bin_prot.Type_class.writer
        val bin_reader_t : M.t Bin_prot.Type_class.reader
        val bin_t : M.t Bin_prot.Type_class.t
      end
  type bigstring =
      (char, Bigarray.int8_unsigned_elt, Bigarray.c_layout) Bigarray.Array1.t
  type 'a m = (module S with type t = 'a)
  val of_bigstring : (module S with type t = 'a) -> Bin_prot.Common.buf -> 'a
  val create_bigstring :
    int ->
    (char, Bigarray.int8_unsigned_elt, Bigarray.c_layout) Bigarray.Array1.t
  val to_bigstring :
    ?prefix_with_length:bool ->
    (module S with type t = 'a) ->
    'a ->
    (char, Bigarray.int8_unsigned_elt, Bigarray.c_layout) Bigarray.Array1.t
end