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