let vcf ~name ~path = object method name = name method path = path end