sig
  external count : unit -> int = "check_caml_modify_count" "noalloc"
  external reset : unit -> unit = "check_caml_modify_reset" "noalloc"
end