sig
  type 'a t
  val ( >>= ) : 'a t -> ('a -> 'b t) -> 'b t
  val ( >>| ) : 'a t -> ('a -> 'b) -> 'b t
  module Monad_infix :
    sig
      val ( >>= ) : 'a t -> ('a -> 'b t) -> 'b t
      val ( >>| ) : 'a t -> ('a -> 'b) -> 'b t
    end
  val bind : 'a t -> ('a -> 'b t) -> 'b t
  val return : 'a -> 'a t
  val join : 'a t t -> 'a t
  val ignore_m : 'a t -> unit t
  val all : 'a t list -> 'a list t
  val all_ignore : unit t list -> unit t
  val empty : unit -> 'a Lazy_list.t
  val is_empty : 'a Lazy_list.t -> bool
  val length : 'a Lazy_list.t -> int
  val decons : 'a Lazy_list.t -> ('a * 'a Lazy_list.t) option
  val cons : 'a -> 'a Lazy_list.t -> 'a Lazy_list.t
  val snoc : 'a Lazy_list.t -> 'a -> 'a Lazy_list.t
  val append : 'a Lazy_list.t -> 'a Lazy_list.t -> 'a Lazy_list.t
  val map : 'a Lazy_list.t -> f:('a -> 'b) -> 'b Lazy_list.t
  val concat : 'a Lazy_list.t Lazy_list.t -> 'a Lazy_list.t
  val nth : 'a Lazy_list.t -> int -> 'a option
  val concat_list : 'a list Lazy_list.t -> 'a Lazy_list.t
  val find : f:('a -> bool) -> 'a Lazy_list.t -> 'a option
  val filter : f:('a -> bool) -> 'a Lazy_list.t -> 'a Lazy_list.t
  val filter_opt : 'a option Lazy_list.t -> 'a Lazy_list.t
  val filter_map : f:('a -> 'b option) -> 'a Lazy_list.t -> 'b Lazy_list.t
  val fold_left : f:('a -> 'b -> 'a) -> init:'a -> 'b Lazy_list.t -> 'a
  val fold_right : f:('a -> 'b -> 'b) -> 'a Lazy_list.t -> init:'b -> 'b
  val foldr :
    'a Lazy_list.t -> f:('a -> 'b Lazy_m.t -> 'b) -> init:'b -> 'b Lazy_m.t
  val iter : 'a Lazy_list.t -> f:('a -> unit) -> unit
  val of_iterator :
    curr:('a -> 'b option) -> next:('a -> 'a) -> init:'a -> 'b Lazy_list.t
  val build : f:('s -> ('a * 's) option) -> seed:'s -> 'a Lazy_list.t
  val unfold : f:('a -> 'a option) -> init:'a -> 'a Lazy_list.t
  val uniter : f:(unit -> 'a option) -> 'a Lazy_list.t
  val of_list : 'a list -> 'a Lazy_list.t
  val to_rev_list : 'a Lazy_list.t -> 'a list
  val to_list : 'a Lazy_list.t -> 'a list
  val of_array : 'a array -> 'a Lazy_list.t
  val to_array : 'a Lazy_list.t -> 'a array
  val cartesian_product :
    'a Lazy_list.t Lazy_list.t -> 'a Lazy_list.t Lazy_list.t
  val merge :
    cmp:('a -> 'a -> int) ->
    'a Lazy_list.t -> 'a Lazy_list.t -> 'a Lazy_list.t
  val unify :
    cmp:('a -> 'b -> int) ->
    'a Lazy_list.t ->
    'b Lazy_list.t ->
    [ `Both of 'a * 'b | `Left of 'a | `Right of 'b ] Lazy_list.t
  val sort : cmp:('a -> 'a -> int) -> 'a Lazy_list.t -> 'a Lazy_list.t
  val lazy_sort : cmp:('a -> 'a -> int) -> 'a Lazy_list.t -> 'a Lazy_list.t
  module Of_container :
    sig
      module type T =
        sig
          type 'a t
          val lazy_fold :
            'a Lazy_list.Of_container.T.t ->
            f:('a -> 'b Lazy_m.t -> 'b) -> last:'b -> 'b
        end
      module Make :
        functor (X : T) ->
          sig val lazy_list_of_t : 'a X.t -> 'a Lazy_list.t end
    end
  module Iterator :
    sig
      type 'a lazy_list = 'a Lazy_list.t
      type 'a t
      val create : 'a Lazy_list.Iterator.lazy_list -> 'a Lazy_list.Iterator.t
      val next : 'a Lazy_list.Iterator.t -> 'a option
      val iter : 'a Lazy_list.Iterator.t -> f:('a -> unit) -> unit
    end
end