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