anchor.diff:                  arr.[start + i] <- s.Pop()
               arr
           
  -        member this.GetArgumentAndTypesAsArrays
  +        member __.GetArgumentAndTypesAsArrays
               (
                   argsArraySize, argsArrayStartPos, argsArrayTotalCount, 
                   typesArraySize, typesArrayStartPos, typesArrayTotalCount 
  
positive.code:             let typesArray = stackToArray typesArraySize typesArrayStartPos typesArrayTotalCount types
              argsArray, typesArray
  
          member this.PopContinuationWithType() = 
              System.Diagnostics.Debug.Assert(args.Count = 1, "args.Count = 1")
              System.Diagnostics.Debug.Assert(types.Count = 1, "types.Count = 1")
              
  
negative.code:         let buf : string[] = Array.zeroCreate n
          let mutable ptr = 0
  
          override __.Finalize() : 'Result = k (String.Concat(buf))
          override __.Write(s : string) = 
              buf.[ptr] <- s
              ptr <- ptr + 1
          override this.WriteT(s) = this.Write s
  
      type StringBuilderPrintfEnv<'Result>(k, buf) = 
          inherit PrintfEnv<Text.StringBuilder, unit, 'Result>(buf)
          override __.Finalize() : 'Result = k ()
          override __.Write(s : string) = ignore(buf.Append(s))
          override __.WriteT(()) = ()
  
      type TextWriterPrintfEnv<'Result>(k, tw : IO.TextWriter) =
          inherit PrintfEnv<IO.TextWriter, unit, 'Result>(tw)
          override __.Finalize() : 'Result = k()
          override __.Write(s : string) = tw.Write s
          override __.WriteT(()) = ()
      
      let inline doPrintf fmt f = 
          let formatter, n = Cache<_, _, _, _>.Get fmt
  