let fastq_gz       ~sample_name ?fragment_id ~r1 ?r2 () =     fastq_or_gz "fastq-gz" ~sample_name ?fragment_id ~r1 ?r2 ()