sig
  type 'a flow = 'a Stream.t
  val to_lazylist : 'a Stream.t -> 'a LList.t
  val to_stream : 'a -> 'a
  val flatten : 'a MoreStream.flow MoreStream.flow -> 'a MoreStream.flow
  val to_array : 'a MoreStream.flow -> 'a array
  val range : int -> int -> int Stream.t
  val map_filter : ('a -> 'b option) -> 'a Stream.t -> 'b Stream.t
  exception End_of_flow
  val of_fun : (unit -> 'a) -> 'a MoreStream.flow
  val of_list : 'a list -> 'a MoreStream.flow
  val of_string : string -> char MoreStream.flow
  val of_channel : Pervasives.in_channel -> char MoreStream.flow
  val to_fun : 'a MoreStream.flow -> unit -> 'a
  val to_list : 'a MoreStream.flow -> 'a list
  val to_string : char MoreStream.flow -> string
  val to_channel : Pervasives.out_channel -> char MoreStream.flow -> unit
  val seq : 'a -> ('a -> 'a) -> ('a -> bool) -> 'a MoreStream.flow
  val enum : ?fin:int -> int -> int MoreStream.flow
  val ( -- ) : int -> int -> int MoreStream.flow
  val repeat : ?times:int -> 'a -> 'a MoreStream.flow
  val cycle : ?times:int -> 'a MoreStream.flow -> 'a MoreStream.flow
  val peek : 'a MoreStream.flow -> 'a option
  val next : 'a MoreStream.flow -> 'a
  val iter : ('a -> unit) -> 'a MoreStream.flow -> unit
  val foldl :
    ('a -> 'b -> 'a * bool option) -> 'a -> 'b MoreStream.flow -> 'a
  val foldr : ('a -> 'b lazy_t -> 'b) -> 'b -> 'a MoreStream.flow -> 'b
  val fold : ('a -> 'a -> 'a * bool option) -> 'a MoreStream.flow -> 'a
  val cons : 'a -> 'a MoreStream.flow -> 'a MoreStream.flow
  val apnd : 'a MoreStream.flow -> 'a MoreStream.flow -> 'a MoreStream.flow
  val is_empty : 'a MoreStream.flow -> bool
  val filter : ('a -> bool) -> 'a MoreStream.flow -> 'a MoreStream.flow
  val concat : 'a MoreStream.flow MoreStream.flow -> 'a MoreStream.flow
  val take : int -> 'a MoreStream.flow -> 'a MoreStream.flow
  val drop : int -> 'a MoreStream.flow -> 'a MoreStream.flow
  val take_while : ('a -> bool) -> 'a MoreStream.flow -> 'a MoreStream.flow
  val drop_while : ('a -> bool) -> 'a MoreStream.flow -> 'a MoreStream.flow
  val span :
    ('a -> bool) ->
    'a MoreStream.flow -> 'a MoreStream.flow * 'a MoreStream.flow
  val break :
    ('a -> bool) ->
    'a MoreStream.flow -> 'a MoreStream.flow * 'a MoreStream.flow
  val group :
    ('a -> bool) -> 'a MoreStream.flow -> 'a MoreStream.flow MoreStream.flow
  val dup : 'a MoreStream.flow -> 'a MoreStream.flow * 'a MoreStream.flow
  val comb :
    'a MoreStream.flow * 'b MoreStream.flow -> ('a * 'b) MoreStream.flow
  val split :
    ('a * 'b) MoreStream.flow -> 'a MoreStream.flow * 'b MoreStream.flow
  val merge :
    (bool -> 'a -> bool) ->
    'a MoreStream.flow * 'a MoreStream.flow -> 'a MoreStream.flow
  val switch :
    ('a -> bool) ->
    'a MoreStream.flow -> 'a MoreStream.flow * 'a MoreStream.flow
  val dupn : int -> 'a MoreStream.flow -> 'a MoreStream.flow array
  val combn : 'a MoreStream.flow array -> 'a array MoreStream.flow
  val splitn : int -> 'a array MoreStream.flow -> 'a MoreStream.flow array
  val mergen :
    (int -> 'a -> int) -> 'a MoreStream.flow array -> 'a MoreStream.flow
  val switchn :
    int -> ('a -> int) -> 'a MoreStream.flow -> 'a MoreStream.flow array
  val map : ('a -> 'b) -> 'a MoreStream.flow -> 'b MoreStream.flow
  val map2 :
    ('a -> 'b -> 'c) ->
    'a MoreStream.flow -> 'b MoreStream.flow -> 'c MoreStream.flow
  val scanl :
    ('a -> 'b -> 'a) -> 'a -> 'b MoreStream.flow -> 'a MoreStream.flow
  val scan : ('a -> 'a -> 'a) -> 'a MoreStream.flow -> 'a MoreStream.flow
  val map_fold :
    ('a -> 'a -> 'a * bool option) ->
    'a MoreStream.flow -> 'a MoreStream.flow
  val feedl :
    'a MoreStream.flow ->
    ('a MoreStream.flow -> 'a MoreStream.flow * 'b) -> 'b
  val feedr :
    'a MoreStream.flow ->
    ('a MoreStream.flow -> 'b * 'a MoreStream.flow) -> 'b
  val circ :
    'a MoreStream.flow ->
    ('a MoreStream.flow -> 'a MoreStream.flow) -> 'a MoreStream.flow
  val ( ||| ) :
    ('a MoreStream.flow -> 'b MoreStream.flow) ->
    ('b MoreStream.flow -> 'c MoreStream.flow) ->
    'a MoreStream.flow -> 'c MoreStream.flow
  val while_do :
    ?size:int ->
    ('a -> bool) ->
    ('a MoreStream.flow -> 'a MoreStream.flow) ->
    'a MoreStream.flow -> 'a MoreStream.flow
  val do_while :
    ?size:int ->
    ('a -> bool) ->
    ('a MoreStream.flow -> 'a MoreStream.flow) ->
    'a MoreStream.flow -> 'a MoreStream.flow
  val farm :
    ?par:int ->
    ?size:(int -> int) ->
    ?path:('a -> int) ->
    (int -> 'a MoreStream.flow -> 'b MoreStream.flow) ->
    'a MoreStream.flow -> 'b MoreStream.flow
  val ( |> ) : 'a -> ('a -> 'b) -> 'b
  val ( @. ) : ('a -> 'b) -> 'a -> 'b
  val ( |- ) : ('a -> 'b) -> ('b -> 'c) -> 'a -> 'c
  val ( -| ) : ('a -> 'b) -> ('c -> 'a) -> 'c -> 'b
  val ( // ) : ('a -> 'b) -> ('c -> 'd) -> 'a * 'c -> 'b * 'd
  val curry : ('a * 'b -> 'c) -> 'a -> 'b -> 'c
  val uncurry : ('a -> 'b -> 'c) -> 'a * 'b -> 'c
  val id : 'a -> 'a
end