let vaxrank ?configuration vcfs bam predictor alleles = fwd (Input.vaxrank ?configuration (List.map ~f:(fun v -> (bwd v)) vcfs) (bwd bam) predictor (bwd alleles))