anchor.diff:      JsonParser(text, cultureInfo, false).ParseMultiple()
   
     /// Sends the JSON to the specified uri. Defaults to a POST request.
  -  member x.Request(uri:string, ?httpMethod, ?headers, ?saveOptions) =  
  +  member x.Request(uri:string, ?httpMethod, ?headers) =  
       let httpMethod = defaultArg httpMethod HttpMethod.Post
       let headers = defaultArg headers []
  -    let saveOptions = defaultArg saveOptions JsonSaveOptions.DisableFormatting
       let headers =
           if headers |> List.exists (fst >> ((=) (fst (HttpRequestHeaders.UserAgent ""))))
           then headers
  
positive.code:     let headers = HttpRequestHeaders.ContentType HttpContentTypes.Json :: headers
      Http.Request(
        uri,
        body = TextRequest (x.ToString(saveOptions)),
        headers = headers,
        httpMethod = httpMethod)
  
    /// Sends the JSON to the specified uri. Defaults to a POST request.
    member x.RequestAsync(uri:string, ?httpMethod, ?headers, ?saveOptions) =
      let httpMethod = defaultArg httpMethod HttpMethod.Post
      let headers = defaultArg headers []
      let saveOptions = defaultArg saveOptions JsonSaveOptions.DisableFormatting
      let headers =
          if headers |> List.exists (fst >> ((=) (fst (HttpRequestHeaders.UserAgent ""))))
          then headers
  
negative.code:       | Boolean b -> sb.Append(if b then "true" else "false")
        | Number number -> sb.Append(number.ToString(CultureInfo.InvariantCulture))
        | Float number -> sb.Append(number.ToString(CultureInfo.InvariantCulture))
        | String s -> 
            sb.Append("\"" + JavaScriptStringEncode(s) + "\"")
        | Record properties -> 
            let isNotFirst = ref false
            sb.Append "{"  |> ignore
            for k, v in properties do
              if !isNotFirst then sb.Append "," |> ignore else isNotFirst := true
              newLine 2
              if saveOptions = JsonSaveOptions.None then
                sb.AppendFormat("\"{0}\": ", k) |> ignore
              else
                sb.AppendFormat("\"{0}\":", k) |> ignore
              serialize sb (indentation + 2) v |> ignore
            newLine 0
            sb.Append "}"
        | Array elements -> 
  