let vcf_concat l = `Vcf_concat l