let topiary       ?(configuration = Tools.Topiary.Configuration.default)       vcfs predictor alleles =     fun ~(var_count : int) ->       let vcfs_compiled = List.map vcfs ~f:(fun v -> v ~var_count) in       function_call "topiary" ([         "configuration", string Tools.Topiary.Configuration.(name configuration);         "alleles", alleles ~var_count;         "predictor", string Hla_utils.(predictor_to_string predictor);       ] @ (List.mapi ~f:(fun i v -> (sprintf "vcf%d" i, v)) vcfs_compiled))