anchor.diff:                              match a.ReplyChannel with
                               | None -> ()
                               | Some ch ->
  -                                OpenCL.Net.Cl.Finish(queue.Queue)
  +                                OpenCL.Net.Cl.Finish(queue)
                                   ch.Reply res
                               0
                   }
   
  -    member private this.HandleRun (queue:Brahma.OpenCL.CommandQueue, run:RunCrate) =
  +    member private this.HandleRun (queue, run:RunCrate) =
           run.Apply
                   {
                       new RunCrateEvaluator<int>
  
positive.code:                                 let eventID = ref Unchecked.defaultof<Event>
                                  let mem = src.Buffer.Mem
                                  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)
  
  
negative.code:     | MsgToHost of ToHostCrate
      | MsgToGPU of ToGPUCrate
      | MsgRun of RunCrate
      | MsgNotifyMe of AsyncReplyChannel<unit>
      | MsgBarrier of SyncObject
  
      static member CreateToHostMsg m =
  