sig
  external quit : unit -> unit = "caml_SDL_Quit"
  external quit_requested : unit -> bool = "caml_SDL_QuitRequested"
end