let vcf_concat_no_machine
~host
~vcftools
~(run_program : Machine.Make_fun.t)
?more_edges
~make_product
vcfs
~final_vcf =
vcf_process_n_to_1_no_machine
~make_product
~host ~vcftools ~run_program ?more_edges ~vcfs ~final_vcf
"vcf-concat"