anchor.diff:          checkCode command "Simple.Seq.gen" "Simple.Seq.cl"
   
       [<Test>]
  +    member this.``Simple seq of struct.``() = 
  +        let command = 
  +            <@ 
  +                fun (range:_1D) (buf:array<TestStruct>) ->
  +                    buf.[0] <- buf.[1]
  +                    buf.[1] <- buf.[0]
  +            @>
  +
  +        checkCode command "Simple.Seq.gen" "Simple.Seq.cl"
  +
  +    [<Test>]
       member this.``Seq with bindings.``() = 
           let command = 
               <@ 
  
positive.code: 
          checkCode command "Nested.Function.Carring.gen" "Nested.Function.Carring.cl"
  
  [<EntryPoint>]
  let f _ =
      //(new Translator()).``Nested functions``()
      (new Translator()).``Nested functions. Carring.``()
      //(new Brahma.FSharp.OpenCL.Full.Translator()).``Simple seq.``()
      0
negative.code: open System.Reflection
  open Microsoft.FSharp.Quotations
  
  [<Struct>]
  type TestStruct =
      val x: int 
      val y: float
      new (x,y) = {x=x; y=y} 
  
  [<TestFixture>]
  type Translator() =
      
      let basePath = "../../../../Tests/Brahma.FSharp.OpenCL/Translator/Expected/"
  
      let deviceType = DeviceType.Gpu
      let platformName = "*"
  
      let provider =
  