let bam_left_align ~reference_build bam =     fwd (Input.bam_left_align ~reference_build (bwd bam))