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