let fastq_of_bam ?fragment_id ?sorted ~reference_build how s = (fragment_id, Of_bam (how, sorted, reference_build, s))