anchor.diff:      | JSON_Boolean of bool
       | JSON_List of JSON list
       | JSON_Obj of (string * JSON) list
  -   ******)))))
  +   *)
        
   let rec stringify (json : JSON) : string =
       let s_name (s : string) : string = "\"" + s + "\""
  
positive.code:             | _ -> acc
          genStr' "" len
      let genName =
          fun() -> genStr ((rand 10) + 1) 
      let rec genObj =
          let MAX_FIELDS = 10
          let genList = fun () ->
              let MAX_LIST_LEN = 10
              let rec genList' (acc : JSON list) (fCnt : int) : (JSON list) =
                  match fCnt with
                  | c when c > 0 -> genList' (genObj() :: acc) (c - 1)
                  | _ -> []
              genList' [] MAX_LIST_LEN
          let rec genObj' (acc : JSON.JSON_Obj) (fCnt : int) : JSON = 
              let genField = fun() ->
                  let genObj'' = fun() ->
                      match (rand 6) with
                      | 0 -> JSON_Null
                      | 1 -> JSON_Boolean (genBoolean())
                      | 2 -> JSON_Number (genNumber())
                      | 3 -> JSON_String (genName())
                      | 4 -> JSON_List (genList()) 
                      | 5 -> (genObj())
                  (genName(), genObj''()) 
              match fCnt with
              | c when c > 0 -> genObj' ((genField()) :: acc) (c - 1)
              | _ -> acc
          genObj' [] ((rand MAX_FIELDS) + 1)
  
      match rnd.Next(42) with
      | 0 -> Object []
      | _ -> Object [("random", Object [])]
  
  let main () = 
    let values = new NameValueCollection()
  
negative.code: 
  
  //*** Stringification ***//
  (*
  let tokenToString = function
      | OpenBrace -> "{"
      | CloseBrace -> "}"
  