sig
  external set_speed : int -> unit = "ml_set_gc_speed"
  external get_speed : unit -> int = "ml_get_gc_speed"
end