anchor.diff:      let bValues = MakeMatrix rows columns
       let cParallel = Array.zeroCreate(rows * columns)
   
  -    let matrixMult = 
  +    let command = 
           <@
  -            fun (r:_2D) columns (a:array<float32>) (b:array<float32>) (c:array<float32>) -> 
  +            fun (r:_2D) columns (a:array<_>) (b:array<_>) (c:array<_>) -> 
                   let tx = r.GlobalID0
                   let ty = r.GlobalID1
  -                let mutable buf = 0.0f
  +                let mutable buf = c.[ty * columns + tx]
                   for k in 0 .. columns - 1 do
                       buf <- buf + (a.[ty * columns + k] * b.[k * columns + tx])
  -                c.[ty * columns + tx] <- c.[ty * columns + tx] + buf
  +                c.[ty * columns + tx] <- buf
           @>
   
       printfn "Multiplying two %Ax%A matrices %A times using .NET..." rows columns iterations
  
positive.code: 
      let rows = 200
      let columns = 200
      let localWorkSize = 10
      let iterations = 100
      let deviceType = Cl.DeviceType.Default
  
  
negative.code: // terms of the License.
  
  module FsMatrixMultiply
  
  open Brahma.Samples
  open OpenCL.Net
  