sig
  type file
  type t = CL_File.file CL_IODevice.t
  external init : filename:string -> CL_File.t = "caml_CL_File_init"
  external delete : CL_File.t -> unit = "caml_CL_File_delete"
end