struct
  type t = {
    ref_seq : Sam.ref_seq array ;
    sam_header : Biocaml_sam.header ;
  }

  let to_sam h = h.sam_header
  let of_sam sam_header = {
    ref_seq = Array.of_list sam_header.Sam.ref_seqs ;
    sam_header
  }

end