2023-02-04 16:58:16 +01:00
|
|
|
type meta = Mv of int
|
2023-01-31 19:51:46 +01:00
|
|
|
|
|
|
|
let cMV : int ref = ref 0
|
|
|
|
|
|
|
|
let getCMV (_ : unit) =
|
2023-02-05 17:04:41 +01:00
|
|
|
let c = !cMV in
|
2023-01-31 19:51:46 +01:00
|
|
|
cMV.contents <- c + 1;
|
|
|
|
c
|
2023-02-04 16:58:16 +01:00
|
|
|
|
|
|
|
type icit
|
|
|
|
= Exp
|
|
|
|
| Imp
|