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