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