anchor.diff:  namespace Brahma.FSharp.OpenCL
   
   open OpenCL.Net
  +open Brahma.OpenCL
  +
  +open Microsoft.FSharp.Quotations
  +open FSharp.Quotations.Evaluator
   
   module Device =
       open System.Text.RegularExpressions
  
positive.code:                             let res = read a.Source a.Destination
                              match a.ReplyChannel with
                              | None -> ()
                              | Some ch -> ch.Reply res
                              0
                  }
  
      //member this.Allocate (a) =
      //    printfn "Allocation"
      //    this.HandleAllocate a
      member this.GetNewProcessor () = MailboxProcessor.Start(fun inbox ->
  
          let commandQueue = new Brahma.OpenCL.CommandQueue(clContext, device)
  
negative.code:     member this.Source = src
      member this.ReplyChannel = replyChannel
  
  type RunKernel<'t>(kernelRunFun, ?replyChannel:AsyncReplyChannel<GpuKernel<'t>>) =
      member this.KernelRunFunction = kernelRunFun
      member this.ReplyChannel = replyChannel
  
  