    sig
      type 'a t
      exception Failure
      exception Error of string
      val from : (int -> 'a option) -> 'a Stream.t
      val of_list : 'a list -> 'a Stream.t
      val of_string : string -> char Stream.t
      val of_channel : Pervasives.in_channel -> char Stream.t
      val iter : ('a -> unit) -> 'a Stream.t -> unit
      val next : 'a Stream.t -> 'a
      val empty : 'a Stream.t -> unit
      val peek : 'a Stream.t -> 'a option
      val junk : 'a Stream.t -> unit
      val count : 'a Stream.t -> int
      val npeek : int -> 'a Stream.t -> 'a list
      val iapp : 'a Stream.t -> 'a Stream.t -> 'a Stream.t
      val icons : 'a -> 'a Stream.t -> 'a Stream.t
      val ising : 'a -> 'a Stream.t
      val lapp : (unit -> 'a Stream.t) -> 'a Stream.t -> 'a Stream.t
      val lcons : (unit -> 'a) -> 'a Stream.t -> 'a Stream.t
      val lsing : (unit -> 'a) -> 'a Stream.t
      val sempty : 'a Stream.t
      val slazy : (unit -> 'a Stream.t) -> 'a Stream.t
      val dump : ('a -> unit) -> 'a Stream.t -> unit
    end