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