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