let bwa_mem_opt ?configuration ~reference_build input =     fwd (Input.bwa_mem_opt ?configuration ~reference_build            (match input with            | `Fastq f -> `Fastq (bwd f)            | `Fastq_gz f -> `Fastq_gz (bwd f)            | `Bam (b, p) -> `Bam (bwd b, p)))