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