sig external set_text : text:string -> int = "caml_SDL_SetClipboardText" external get_text : unit -> string = "caml_SDL_GetClipboardText" external has_text : unit -> bool = "caml_SDL_HasClipboardText" end