let default :   run_program: Machine.Make_fun.t ->   host: Common.KEDSL.Host.t ->   install_path: string ->   unit ->   _ = fun ~run_program ~host ~install_path () ->   Machine.Tool.Kit.of_list     (List.map ~f:(provide ~run_program ~host ~install_path) [     picard;     bowtie;     seq2hla;     optitype;     igvxml;     hlarp;   ])