let bam ~sample_name ?sorting ~reference_build input =     fwd (Input.bam ~sample_name ?sorting ~reference_build (bwd input))