let topiary ?configuration vcfs predictor alleles = fwd (Input.topiary ?configuration (List.map ~f:bwd vcfs) predictor (bwd alleles))