let of_out_channel ?(level = 6) oc =
  if level < 1 || level > 9 then raise (invalid_arg "Biocaml_bgzf: bad compression level") ;
  {
    out_chan = oc;
    out_ubuffer = String.create max_isize ;
    out_cbuffer = String.create max_block_size ;
    out_pos = 0 ;
    out_level = level ;
  }