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)))