let isovar
?(configuration = Tools.Isovar.Configuration.default) vcf bam =
fun ~(var_count : int) ->
let vcf_compiled = vcf ~var_count in
let bam_compiled = bam ~var_count in
function_call "isovar" [
"configuration", string Tools.Isovar.Configuration.(name configuration);
"vcf", vcf_compiled;
"bam", bam_compiled;
]