let vcf_file ~host ~reference_build path : vcf_file =     object (self)       val file = single_file ~host path       method host = host       method path = file#path       method is_done = file#is_done       method reference_build = reference_build       method as_single_file = file     end