type meta = Mv of int
let cMV : int ref = ref 0
let getCMV (_ : unit) =
let c = !cMV in
cMV.contents <- c + 1;
c
type icit
= Exp
| Imp