let bam_sample ~sample_name ?sorting ~reference_build ~how path =     Bam {bam_sample_name = sample_name; path; how; reference_build; sorting }