let virmid ?configuration ~normal ~tumor () =     fwd (Input.virmid ?configuration ~normal:(bwd normal) ~tumor:(bwd tumor) ())