let gatk_tool     ~(run_program : Machine.Make_fun.t)     ~host ~install_tools_path loc =   let tool = Machine.Tool.Default.gatk in   let open KEDSL in   let install_path = install_tools_path // Tool_def.to_directory_name tool in   let ensure = get_broad_jar ~run_program ~host ~install_path loc in   Machine.Tool.create tool ~ensure     ~init:Program.(shf "export GATK_JAR=%s" ensure#product#path)