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