sig external getString : unit -> string = "caml_sfClipboard_getString" external setString : string -> unit = "caml_sfClipboard_setString" end