anchor.diff:          if error <> ErrorCode.Success
           then raise (new CLException(error))
   
  +    let range = ref Unchecked.defaultof<'TRange>
       let argsSetupFunction =
           let rng = ref Unchecked.defaultof<'TRange>
           let args = ref [||]
  
positive.code:             | MsgToGPU a ->
                  printfn "ToGPU"
                  this.HandleToGPU(commandQueue, a) |> ignore
  
              return! loop 0
              }
  
negative.code:                 member __.Apply e = e.Eval m
          }
          |> MsgToGPU
  
      static member CreateRunMsg m =
          {
              new RunCrate with
                  member __.Apply e = e.Eval m
          }
          |> MsgRun
  type GPU(device: Device) =
  
      let clContext =
  