sig
  val init_opengl : unit -> unit
  external swap_buffers : unit -> unit = "stub_swap_buffers"
    "stub_swap_buffers"
  external usleep : int -> unit = "stub_usleep"
end