anchor.diff:  
       let rows = 200
       let columns = 200
  -    let localWorkSize = 10
  +    let localWorkSize = 20
       let iterations = 100
       let deviceType = Cl.DeviceType.Default
   
  
positive.code: // terms of the License.
  
  module FsMatrixMultiply
  
  open System.Text.RegularExpressions
  
  open Brahma.Samples
  open OpenCL.Net
  
negative.code:     let bValues = MakeMatrix rows columns
      let cParallel = Array.zeroCreate(rows * columns)
  
      let command = 
          <@
              fun (r:_2D) columns (a:array<_>) (b:array<_>) (c:array<_>) -> 
                  let tx = r.GlobalID0
                  let ty = r.GlobalID1
                  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] <- buf
          @>
  
      printfn "Multiplying two %Ax%A matrices %A times using .NET..." rows columns iterations
  