anchor.diff:  
   open NUnit.Framework
   open System.IO
  -open Brahma.Types
  +//open Brahma.Types
   open Brahma.Samples
   open OpenCL.Net
   open Brahma.OpenCL
  
positive.code:         let cq2 = commandQueue.Add(aBuf.Read(0, l, r)).Finish()
          Assert.AreEqual(expected,r)
          commandQueue.Dispose();
          
  
      [<Test>]
  
negative.code:         let c = command:>Expr
          let kernel = provider.Compile<_1D,_> c
          
          checkResult kernel [|0;2;4;6|]
  
      [<Test>]
      member this.``Simple 1D with copy.``() = 
          let command = 
              <@ 
                  fun (range:_1D) (inBuf:array<int>) (outBuf:array<int>) ->
                      let i = range.GlobalID0i
                      outBuf.[i] <- inBuf.[i]
              @>
  
          let c = command:>Expr
          let kernel = provider.Compile<_1D,_,_> c
          
          checkResult2 kernel [|0;1;2;3|]
  
      [<Test>]
      member this.``Simple 1D float.``() = 
          let command = 
              <@ 
                  fun (range:_1D) (buf:array<float32>) ->
                      let i = range.GlobalID0i
                      buf.[i] <- buf.[i] * buf.[i]
              @>
  
          let c = command:>Expr
          let kernel = provider.Compile<_1D,_> c
          
          checkResultFloat kernel [|0.0;1.0;4.0;9.0|]