sig external get_error : unit -> string = "caml_SDL_GetError" external clear_error : unit -> unit = "caml_SDL_ClearError" end