let fastq_gz ~sample_name ?fragment_id ~r1 ?r2 () =     let r1 = bwd r1 in     let r2 = Option.map ~f:bwd r2 in     fwd (Input.fastq_gz ~sample_name ?fragment_id ~r1 ?r2 ())