anchor.diff:              Args = args
               Variables = ctx.Variables
           }
  -        let formatErrors (errors : Error list) =
  -            errors 
  -            |> List.map (fun err ->
  -                let (message, path) = err
  -                NameValueLookup.ofList ["message", upcast message; "path", upcast path])
           let nvli (path : obj list) (index : int) (err : Error list) data =
               let data' = [ data ] :> obj
               match err with
  
positive.code:     let rec stringify (sb: System.Text.StringBuilder) deep (o:obj) =
          match o with
          | :? NameValueLookup as lookup ->
              sb.Append("{ ") |> ignore
              lookup.Buffer
              |> Array.iter (fun kv -> 
                  sb.Append(kv.Key).Append(": ") |> ignore
                  stringify sb (deep+1) kv.Value
                  sb.Append(",\r\n") |> ignore
                  pad sb deep)
              sb.Remove(sb.Length - 4 - deep, 4 + deep).Append(" }") |> ignore
          | :? string as s ->
              sb.Append("\"").Append(s).Append("\"") |> ignore
          | :? System.Collections.IEnumerable as s -> 
  
negative.code:     match o with
      | :? string as s -> String s
      | _ -> Other
  
  let private formatErrors (errors : Error list) =
      errors 
      |> List.map (fun err ->
          let (message, path) = err
          NameValueLookup.ofList ["message", upcast message; "path", upcast path])
  
  let private executeQueryOrMutation (resultSet: (string * ExecutionInfo) []) (ctx: ExecutionContext) (objdef: ObjectDef) (fieldExecuteMap: FieldExecuteMap) value =
      let resultTrees =
  