let fastq ~sample_name ?fragment_id ~r1 ?r2 () = fwd (Input.fastq ~sample_name ?fragment_id ~r1 ?r2 ())