anchor.diff:      printf "Start2"
       let d =(new _2D(400, 400, localWorkSize, localWorkSize))
   
  -    kernelPrepare d cParallel
  +    kernelPrepare d cParallel   
       let _ = commandQueue.Add(kernelRun()).Finish()            
       let _ = commandQueue.Add(cParallel.ToHost provider).Finish()
       commandQueue.Dispose()
  
positive.code:     provider.CloseAllBuffers()
      //ignore (System.Console.Read())
      cParallel
  //let f (a:array<int>) =
  //    for i in 0..(a.Length-1) do
  //        printf "%A" a.[i]
  //f Main
  
  let draw  (image:Bitmap) (arr1:array<int>) =
      let mutable t = -400; 
  
negative.code:                 let size = 100.0
                  let fx = float x / size * scaling +  -1.5
                  let fy = float y / size * scaling +  -1.0
                  let cr = fx
                  let ci = fy
                  let iter = 20
                  let mutable flag = true
                  let mutable zr1 = 0.0
                  let mutable zi1 = 0.0
                  for i in 0..iter do
                      if (zr1*zr1 + zi1*zi1 ) <= 4.0
                      then
                          let t = zr1
                          zr1 <- (zr1*zr1 - zi1*zi1 + cr)
                          zi1 <- (2.0 * zi1 * t + ci)
                      else
                          flag <- false                    
                  if flag 
                  then
                      cx.[x*400+y] <- 1
  