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