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