Biocaml 0.4-dev : Biocaml_bam_alt.Header.of_sam

let of_sam sam_header = {

  ref_seq = Array.of_list sam_header.Sam.ref_seqs ;

  sam_header

 }