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))