let fastq_gz       ~sample_name ?fragment_id ~r1 ?r2 () =     let fq = fastq ~sample_name ?fragment_id ~r1 ?r2 () in     Gz (AF.get_file fq)     |> AF.with_provenance "gz" ["fastq"AF.get_provenance fq]