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