let string_to_raw ?zlib_buffer_size () =
    Biocaml_transform.compose_results
      ~on_error:(function
      | `left l -> `unzip l
      | `right r ->
        match r with
        | `no -> failwith "got `right `no"
        | #Error.raw_bam as a -> `bam a)
      (Zip.Transform.unzip ~format:`gzip ?zlib_buffer_size ())
      (uncompressed_bam_parser ())