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"
        | #raw_bam_error as a -> `bam a)
      (Zip.Transform.unzip ~format:`gzip ?zlib_buffer_size ())
      (uncompressed_bam_parser ())