sig
  type t
  external init : colors:CL_Color.t array -> CL_Palette.t
    = "caml_CL_Palette_init"
  external delete : CL_Palette.t -> unit = "caml_CL_Palette_delete"
end