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