sig
  type 'a t = 'Stream.t
  val to_stream : 'a t -> 'Stream.t
  val of_stream : 'Stream.t -> 'a t
  exception Failure
  exception Error of string
  exception Expected_streams_of_equal_length
  val next : 'Biocaml_stream.t -> 'a option
  val next_exn : 'Biocaml_stream.t -> 'a
  val peek : 'Biocaml_stream.t -> 'a option
  val npeek : 'Biocaml_stream.t -> int -> 'a list
  val junk : 'Biocaml_stream.t -> unit
  val count : 'Biocaml_stream.t -> int
  val is_empty : 'Biocaml_stream.t -> bool
  val from : (int -> 'a option) -> 'Biocaml_stream.t
  val of_list : 'a list -> 'Biocaml_stream.t
  val of_string : string -> char Biocaml_stream.t
  val of_channel : Pervasives.in_channel -> char Biocaml_stream.t
  val strings_of_channel :
    ?buffer_size:int -> Pervasives.in_channel -> string Biocaml_stream.t
  val range : ?until:int -> int -> int Biocaml_stream.t
  val empty : unit -> 'Biocaml_stream.t
  val init : int -> f:(int -> 'a) -> 'Biocaml_stream.t
  val singleton : '-> 'Biocaml_stream.t
  val unfold : '-> f:('-> ('b * 'a) option) -> 'Biocaml_stream.t
  val unfoldi :
    '-> f:(int -> '-> ('b * 'a) option) -> 'Biocaml_stream.t
  val of_lazy : 'Biocaml_stream.t lazy_t -> 'Biocaml_stream.t
  val iter : 'Biocaml_stream.t -> f:('-> unit) -> unit
  val iter2 :
    'Biocaml_stream.t ->
    'Biocaml_stream.t -> f:('-> '-> unit) -> unit
  val iter2_exn :
    'Biocaml_stream.t ->
    'Biocaml_stream.t -> f:('-> '-> unit) -> unit
  val fold : 'Biocaml_stream.t -> init:'-> f:('-> '-> 'b) -> 'b
  val fold2 :
    'Biocaml_stream.t ->
    'Biocaml_stream.t -> init:'-> f:('-> '-> '-> 'c) -> 'c
  val fold2_exn :
    'Biocaml_stream.t ->
    'Biocaml_stream.t -> init:'-> f:('-> '-> '-> 'c) -> 'c
  val scanl :
    'Biocaml_stream.t ->
    init:'-> f:('-> '-> 'b) -> 'Biocaml_stream.t
  val scan : 'Biocaml_stream.t -> f:('-> '-> 'a) -> 'Biocaml_stream.t
  val iteri : 'Biocaml_stream.t -> f:(int -> '-> unit) -> unit
  val iter2i_exn :
    'Biocaml_stream.t ->
    'Biocaml_stream.t -> f:(int -> int -> '-> '-> unit) -> unit
  val iter2i :
    'Biocaml_stream.t ->
    'Biocaml_stream.t -> f:(int -> int -> '-> '-> unit) -> unit
  val foldi :
    'Biocaml_stream.t -> init:'-> f:(int -> '-> '-> 'b) -> 'b
  val fold2i_exn :
    'Biocaml_stream.t ->
    'Biocaml_stream.t ->
    init:'-> f:(int -> int -> '-> '-> '-> 'c) -> 'c
  val fold2i :
    'Biocaml_stream.t ->
    'Biocaml_stream.t ->
    init:'-> f:(int -> int -> '-> '-> '-> 'c) -> 'c
  val reduce : 'Biocaml_stream.t -> f:('-> '-> 'a) -> 'a
  val sum : int Biocaml_stream.t -> int
  val fsum : float Biocaml_stream.t -> float
  val exists : 'Biocaml_stream.t -> f:('-> bool) -> bool
  val for_all : 'Biocaml_stream.t -> f:('-> bool) -> bool
  val find : 'Biocaml_stream.t -> f:('-> bool) -> 'a option
  val find_exn : 'Biocaml_stream.t -> f:('-> bool) -> 'a
  val find_map : 'Biocaml_stream.t -> f:('-> 'b option) -> 'b option
  val take : 'Biocaml_stream.t -> n:int -> 'Biocaml_stream.t
  val take_while :
    'Biocaml_stream.t -> f:('-> bool) -> 'Biocaml_stream.t
  val drop : 'Biocaml_stream.t -> n:int -> unit
  val drop_while : 'Biocaml_stream.t -> f:('-> bool) -> unit
  val skip : 'Biocaml_stream.t -> n:int -> 'Biocaml_stream.t
  val skip_while :
    'Biocaml_stream.t -> f:('-> bool) -> 'Biocaml_stream.t
  val take_whilei :
    'Biocaml_stream.t -> f:(int -> '-> bool) -> 'Biocaml_stream.t
  val drop_whilei : 'Biocaml_stream.t -> f:(int -> '-> bool) -> unit
  val skip_whilei :
    'Biocaml_stream.t -> f:(int -> '-> bool) -> 'Biocaml_stream.t
  val span :
    'Biocaml_stream.t ->
    f:('-> bool) -> 'Biocaml_stream.t * 'Biocaml_stream.t
  val group :
    'Biocaml_stream.t ->
    f:('-> 'b) -> 'Biocaml_stream.t Biocaml_stream.t
  val group_by :
    'Biocaml_stream.t ->
    eq:('-> '-> bool) -> 'Biocaml_stream.t Biocaml_stream.t
  val map : 'Biocaml_stream.t -> f:('-> 'b) -> 'Biocaml_stream.t
  val mapi :
    'Biocaml_stream.t -> f:(int -> '-> 'b) -> 'Biocaml_stream.t
  val filter : 'Biocaml_stream.t -> f:('-> bool) -> 'Biocaml_stream.t
  val filter_map :
    'Biocaml_stream.t -> f:('-> 'b option) -> 'Biocaml_stream.t
  val append :
    'Biocaml_stream.t -> 'Biocaml_stream.t -> 'Biocaml_stream.t
  val concat : 'Biocaml_stream.t Biocaml_stream.t -> 'Biocaml_stream.t
  val combine :
    'Biocaml_stream.t * 'Biocaml_stream.t -> ('a * 'b) Biocaml_stream.t
  val uncombine :
    ('a * 'b) Biocaml_stream.t -> 'Biocaml_stream.t * 'Biocaml_stream.t
  val merge :
    'Biocaml_stream.t ->
    'Biocaml_stream.t -> cmp:('-> '-> int) -> 'Biocaml_stream.t
  val partition :
    'Biocaml_stream.t ->
    f:('-> bool) -> 'Biocaml_stream.t * 'Biocaml_stream.t
  val uniq : 'Biocaml_stream.t -> 'Biocaml_stream.t
  val to_list : 'Biocaml_stream.t -> 'a list
  val result_to_exn :
    ('output, 'error) Core.Std.Result.t Biocaml_stream.t ->
    error_to_exn:('error -> exn) -> 'output Biocaml_stream.t
  module Infix :
    sig
      val ( -- ) : int -> int -> int Biocaml_stream.t
      val ( --^ ) : int -> int -> int Biocaml_stream.t
      val ( --. ) : float * float -> float -> float Biocaml_stream.t
      val ( --- ) : int -> int -> int Biocaml_stream.t
      val ( /@ ) : 'Biocaml_stream.t -> ('-> 'b) -> 'Biocaml_stream.t
      val ( // ) : 'Biocaml_stream.t -> ('-> bool) -> 'Biocaml_stream.t
      val ( //@ ) :
        'Biocaml_stream.t -> ('-> 'b option) -> 'Biocaml_stream.t
    end
end