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