Opencl_api.Context
type t = {
handle : Opencl_types.cl_context;
device : Device.t;
}
val create : Device.t -> t
val release : t -> unit