let bam ~dataset bam = Bam_sample (dataset, bam)