let gatk_bqsr ?configuration bam =     fwd (Input.gatk_bqsr ?configuration (bwd bam))