anchor.diff:  
       let command =
           <@
  -            fun (rng:_1D) (s:array<_>) (sub:array<_>) (res:array<_>) sL subL ->
  +            fun (rng:_1D) (s:array<_>) (sub:array<_>) (res:array<_>) (b:array<_>) sL subL ->
                   let i = rng.GlobalID0
                   //let _sub = sub
                   if i <= sL - subL
  
positive.code: 
  let cpuSum = ref 0
  let _gpuSum = ref 0
  let l = 95000000
  let sl = 1000
  let st = 2
  let idxs = Array.init ((l/(sl*st))-1 ) (fun i -> i*sl*st)
      //[|2; 45500; 1245; 9800; 10000; 6000; 3005; 200000; 3000445;8000;12000;14000;|]
  let _sig = 
      let a = Array.zeroCreate sl
      random.NextBytes a
      a
      //[|0uy;1uy;0uy;1uy;1uy;0uy;1uy;1uy;5uy;100uy;1uy;66uy;2uy;0uy;1uy;1uy;0uy;1uy;1uy;56uy;1uy;2uy;255uy;0uy;1uy;1uy;2uy;1uy;0uy;1uy;1uy;0uy;1uy;1uy;5uy;100uy;1uy;66uy;2uy;0uy;1uy;1uy;0uy;1uy;1uy;56uy;1uy;2uy;254uy;0uy;1uy;1uy;2uy;1uy;0uy;1uy;1uy;0uy;1uy;1uy;5uy;100uy;1uy;66uy;2uy;0uy;1uy;1uy;0uy;1uy;1uy;56uy;1uy;2uy;254uy;0uy;1uy;1uy;2uy
        //       ; 0uy;1uy;0uy;1uy;1uy;0uy;1uy;1uy;5uy;100uy;1uy;66uy;2uy;0uy;1uy;1uy;0uy;1uy;1uy;56uy;1uy;2uy;255uy;0uy;1uy;1uy;2uy;1uy;0uy;1uy;1uy;0uy;1uy;1uy;5uy;100uy;1uy;66uy;2uy;0uy;1uy;1uy;0uy;1uy;1uy;56uy;1uy;2uy;254uy;0uy;1uy;1uy;2uy;1uy;0uy;1uy;1uy;0uy;1uy;1uy;5uy;100uy;1uy;66uy;2uy;0uy;1uy;1uy;0uy;1uy;1uy;56uy;1uy;2uy;254uy;0uy;1uy;1uy;2uy|]
  //[|0uy;1uy;0uy;1uy;1uy;0uy;1uy;1uy;5uy;100uy;1uy;66uy;2uy;0uy;1uy;1uy;0uy;1uy;1uy;56uy;1uy;2uy;254uy;0uy;1uy;1uy;2uy|]
  let arr = Array.zeroCreate l
  random.NextBytes arr
  for i in idxs do
      _sig |> Array.iteri (fun j x -> arr.[j+i] <- x)
  
negative.code: 
  let platformName = "*"
  let deviceType = Cl.DeviceType.Default
  
  let provider =
          try  ComputeProvider.Create(platformName, deviceType)
          with 
          | ex -> failwith ex.Message
  let commandQueue = new CommandQueue(provider, provider.Devices |> Seq.head)
  let ing,e = Cl.GetDeviceInfo(provider.Devices |> Seq.head,Cl.DeviceInfo.GlobalMemSize)
  let gg = ing.CastTo<uint64>()
  let ing2,e2 = Cl.GetDeviceInfo(provider.Devices |> Seq.head,Cl.DeviceInfo.MaxMemAllocSize)
  let ggg = ing2.CastTo<uint64>()
  let k = 1024
  
  let length =   12//0000000
  