anchor.diff:  type Msg =
       | MsgToHost of ToHostCrate
       | MsgToGPU of ToGPUCrate
  +    | MsgRun of RunCrate
   
       static member CreateToHostMsg m =
           {
  
positive.code:                             0
                  }
  
      member this.GetNewProcessor () = MailboxProcessor.Start(fun inbox ->
  
          let commandQueue = new Brahma.OpenCL.CommandQueue(clContext, device)
  
negative.code: 
              res
          getStarterFunction srcLambda
      member this.SetArguments = argsSetupFunction
      member this.ClKernel = kernel
      member this.Range = !range :> Brahma.OpenCL.INDRangeDimension
  
  type ToHost<'t>(src:GpuArray<'t>, dst: array<'t>, ?replyChannel:AsyncReplyChannel<array<'t>>) =
      member this.Destination = dst
  