Mt_mutex
type value = Mt_utils.Value.t
type status =
| Locked
| Unlocked
module Register : sig ... end