let transform_bam ?change_sorting (bam : bam_file) ~path : bam_file =     bam_file       ~host:bam#host       ?sorting:(         match change_sorting with         | Some new_sorting -> Some new_sorting         | None -> bam#sorting       )       ~reference_build:bam#reference_build       path