sig
  type graphic_context
  type primitives_array
  type uint = int
  external are_pointers_boxed : unit -> bool = "caml_are_pointers_boxed"
    [@@noalloc]
end