anchor.diff:          clKernel
   
       let toIMem a =
  -        //var isIMem = arg is IMem;
           match box a with
           | :? Brahma.IMem as mem ->
              mem.Size, mem.Data
  
positive.code:         printfn "Code = %A" code
          code
      let compileQuery translatorOptions additionalSources =
          let program, error =
              let sources = additionalSources @ [clCode] |> List.toArray
              Cl.CreateProgramWithSource(context, uint32 (sources.Length), sources, null)
          if error <> ErrorCode.Success
          then failwithf "Program creation failed: %A" error
          let error = Cl.BuildProgram(program, 1u, [|device|], "", null, System.IntPtr.Zero)
          if error <> ErrorCode.Success
          then failwithf "Program compilation failed: %A" error
          program
  
      let createKernel program =
  
negative.code:                                 let elementSize = src.Buffer.ElementSize
                                  let error = Cl.EnqueueReadBuffer(queue.Queue, mem,
                                              Bool.False, System.IntPtr(0),
                                              System.IntPtr(src.Length * elementSize), dst, 0u, null, eventID)
  
                                  if error <> ErrorCode.Success
                                  then raise (Cl.Exception(error))
  