(* number ; is-hole? *)
type meta = Mv of int * bool


let cMV : int ref = ref 0

let getCMV (_ : unit) =
  let c = ! cMV in
  cMV.contents <- c + 1;
  c