anchor.diff:              new NativeProgram<'a>(values, compile)
   
       
  +    let nopFunction =
  +        use s = new MemoryStream()
  +        use asm = AssemblerStream.ofStream s
  +
  +        asm.BeginFunction()
  +        asm.EndFunction()
  +        asm.Ret()
  +
  +        let arr = s.ToArray()
  +        let mem = ExecutableMemory.alloc (nativeint arr.Length)
  +        Marshal.Copy(arr, 0, mem, arr.Length)
  +        mem
  +
   
   
       type MyDelegate = delegate of int * int * int * int -> unit
  
positive.code:     let pReport = Marshal.PinDelegate(report)
  
  
      let test() =
          let values = clist [0;1;2;3]
          let prog = TestProgram(values)
  
  
negative.code:         Marshal.Copy(buffer, o, store + offset, count)
          length <- length + nativeint count
          offset <- offset + nativeint count
  
  type IAssemblerStream =
      inherit IDisposable
  