let get_reference_genome name =   match List.find default_genome_providers ~f:(fun (a, _) -> a = name) with   | Some (_, pull) -> pull   | None -> failwithf "Cannot find the reference genorme called %S" name