sig type'a t exceptionFailure exceptionErrorof 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