anchor.diff:  
                   let data = result.ToArray()
                   result.Clear()
  -                s.Write(data, 0, data.Length)
  +                write data
  +                //s.Write(data, 0, data.Length)
   
               member x.WriteDCLum(v : int) =
                   let dc = Fun.HighestBit(abs v) + 1
  
positive.code:             
              }
  
  
      let next (v : int) (a : int) =
          if v % a = 0 then v
          else (1 + v / a) * a
  
      let testDCT() =
          use app = new HeadlessVulkanApplication(false)
  
negative.code:         let arr = Array.zeroCreate cnt.[0]
          b.Download(0L, arr, 0L, arr.LongLength)
  
          let data = writeImage image.Size offsets counts arr
          File.writeAllBytes @"C:\Users\Schorsch\Desktop\hugo.jpg" data
          printfn "%A (%A) %A" arr.[0] offsets.[0] cnt.[0]
          Environment.Exit 0
  
          
  
  