(* 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