sig
  module Deferred :
    sig
      type ('a, 'execution_context) t =
          ('a, 'execution_context) Raw_deferred.t
      type ('a, 'execution_context) deferred = ('a, 'execution_context) t
      val of_ivar :
        ('a, 'execution_context) Raw_ivar.t -> ('a, 'execution_context) t
      val create :
        (('a, 'execution_context) Raw_ivar.t -> unit) ->
        ('a, 'execution_context) t
      val peek : ('a, 'b) t -> 'a option
      val is_determined : ('a, 'b) t -> bool
      val return : 'a -> ('a, 'b) t
      module Scheduler_dependent :
        functor (Scheduler : Import.Basic_scheduler) ->
          sig
            type 'a t = ('a, Scheduler.Execution_context.t) deferred
            val sexp_of_t : ('a -> Sexplib.Sexp.t) -> 'a t -> Sexplib.Sexp.t
            type 'a detailed = 'a t
            val sexp_of_detailed :
              ('a -> Sexplib.Sexp.t) -> 'a detailed -> Sexplib.Sexp.t
            val upon : 'a t -> ('a -> unit) -> unit
            val upon' : 'a t -> ('a -> unit) -> Unregister.t
            val bind : 'a t -> ('a -> 'b t) -> 'b t
            val install_removable_handler :
              'a t ->
              ('a, Scheduler.Execution_context.t) Raw_handler.t ->
              Unregister.t
          end
      val ounit_tests : unit -> OUnit.test
    end
  module Ivar :
    sig
      module Handler :
        sig
          type ('a, 'execution_context) t =
              ('a, 'execution_context) Raw_ivar.Handler.t
        end
      type ('a, 'execution_context) t = ('a, 'execution_context) Raw_ivar.t
      val sexp_of_t :
        ('a -> Sexplib.Sexp.t) ->
        ('execution_context -> Sexplib.Sexp.t) ->
        ('a, 'execution_context) t -> Sexplib.Sexp.t
      type ('a, 'execution_context) ivar = ('a, 'execution_context) t
      val equal : ('a, 'b) t -> ('a, 'b) t -> bool
      val create : unit -> ('a, 'b) t
      val create_full : 'a -> ('a, 'b) t
      val peek : ('a, 'b) t -> 'a option
      val is_empty : ('a, 'b) t -> bool
      val is_full : ('a, 'b) t -> bool
      module Scheduler_dependent :
        functor (Scheduler : Import.Basic_scheduler) ->
          sig
            type 'a t = ('a, Scheduler.Execution_context.t) ivar
            val sexp_of_t : ('a -> Sexplib.Sexp.t) -> 'a t -> Sexplib.Sexp.t
            type 'a detailed = 'a t
            val sexp_of_detailed :
              ('a -> Sexplib.Sexp.t) -> 'a detailed -> Sexplib.Sexp.t
            val connect : bind_result:'a t -> bind_rhs:'a t -> unit
            val fill : 'a t -> 'a -> unit
            val install_removable_handler :
              'a t ->
              ('a, Scheduler.Execution_context.t) Raw_handler.t ->
              Unregister.t
            val upon : 'a t -> ('a -> unit) -> unit
            val upon' : 'a t -> ('a -> unit) -> Unregister.t
          end
      val debug_space_leaks : int option ref
      val ounit_tests : unit -> OUnit.test
    end
  module Stream :
    sig
      module Deferred :
        sig
          type ('a, 'execution_context) t =
              ('a, 'execution_context) Raw_deferred.t
          type ('a, 'execution_context) deferred = ('a, 'execution_context) t
          val of_ivar :
            ('a, 'execution_context) Raw_ivar.t -> ('a, 'execution_context) t
          val create :
            (('a, 'execution_context) Raw_ivar.t -> unit) ->
            ('a, 'execution_context) t
          val peek : ('a, 'b) t -> 'a option
          val is_determined : ('a, 'b) t -> bool
          val return : 'a -> ('a, 'b) t
          module Scheduler_dependent :
            functor (Scheduler : Import.Basic_scheduler) ->
              sig
                type 'a t = ('a, Scheduler.Execution_context.t) deferred
                val sexp_of_t :
                  ('a -> Sexplib.Sexp.t) -> 'a t -> Sexplib.Sexp.t
                type 'a detailed = 'a t
                val sexp_of_detailed :
                  ('a -> Sexplib.Sexp.t) -> 'a detailed -> Sexplib.Sexp.t
                val upon : 'a t -> ('a -> unit) -> unit
                val upon' : 'a t -> ('a -> unit) -> Unregister.t
                val bind : 'a t -> ('a -> 'b t) -> 'b t
                val install_removable_handler :
                  'a t ->
                  ('a, Scheduler.Execution_context.t) Raw_handler.t ->
                  Unregister.t
              end
          val ounit_tests : unit -> OUnit.test
        end
      type ('a, 'execution_context) t =
          (('a, 'execution_context) next, 'execution_context) Deferred.t
      and ('a, 'execution_context) next =
        ('a, 'execution_context) Raw_stream.next =
          Nil
        | Cons of 'a * ('a, 'execution_context) t
      val next : 'a -> 'a
      val sexp_of_t :
        ('a -> Core.Std.Sexp.t) ->
        'b -> (('a, 'c) next, 'c) Deferred.t -> Core.Std.Sexp.t
      val ounit_tests : unit -> OUnit.test
    end
  type ('a, 'execution_context) t =
    ('a, 'execution_context) Raw_tail.t = {
    mutable next :
      (('a, 'execution_context) Stream.next, 'execution_context) Ivar.t;
  }
  val sexp_of_t : 'a -> 'b -> ('c, 'd) t -> Core.Std.Sexp.t
  val create : unit -> ('a, 'b) t
  val collect : ('a, 'b) t -> (('a, 'b) Stream.next, 'b) Deferred.t
  val ounit_tests : unit -> OUnit.test
end