let zip_in_channel ?format ?zlib_buffer_size ?level ?buffer_size inp =
  let t = Transform.zip ?format ?zlib_buffer_size ?level () in
  Biocaml_transform.in_channel_strings_to_stream ?buffer_size inp t