let picard_clean_bam bam =     fwd (Input.picard_clean_bam (bwd bam))