Biocaml 0.4-dev : Biocaml_sam.MakeIO.write

let write w ?(header=empty_header) alignments =

  write_header w header >>= fun () ->

  Pipe.iter alignments ~f:(fun a ->

   Writer.write_line w (print_alignment a)

  )