sig   val read_stream :     (string -> 'a array) -> Pervasives.in_channel -> 'a Stream.t   val write_stream :     ?chunk_len:int ->     ('a array -> string) -> Pervasives.out_channel -> 'a Stream.t -> unit   val test : int list -> bool end