anchor.diff:              parseEllipsis() // tolerate ... or {...}
           ensure(i < s.Length && s.[i] = ']')
           i <- i + 1
  -        JsonValue.Array(vals.ToArray())
  +        let arr = vals.ToArray()
  +        vals.Clear()
  +        JsonValue.Array(arr)
   
       and parseLiteral(expected, r) =
           ensure(i+expected.Length < s.Length)
  
positive.code:     let mutable i = 0
      let s = jsonText
  
      // Helper functions
      let skipWhitespace() =
        while i < s.Length && Char.IsWhiteSpace s.[i] do
  
negative.code:         ensure(i < s.Length && s.[i] = '{')
          i <- i + 1
          skipWhitespace()
          if i < s.Length && s.[i] = '"' then
              pairs.Add(parsePair())
              skipWhitespace()
  