anchor.diff:  
   
   //*** Stringification ***//
  -(*****
  +(*
   let tokenToString = function
       | OpenBrace -> "{"
       | CloseBrace -> "}"
  
positive.code:     | 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 + "\""
  
negative.code:             | _ -> acc
          genStr' "" len
      let genName =
          fun() -> genStr ((rand MAX_NAME_LEN) + 1) 
      let rec genObj (maxDepth : int) = 
          let genList = fun () ->
              let rec genList' (acc : JSON list) (fCnt : int) : (JSON list) =
                  match fCnt with
                  | c when c > 0 -> genList' ((genObj (maxDepth - 1)) :: acc) (c - 1)
                  | _ -> acc
              genList' [] ((rand MAX_LIST_LEN) + 1)
          let rec genObj' (acc : (string * JSON) list) (fCnt : int) : JSON = 
              let genField = fun() ->
                  let genObj'' = fun() ->
                      let range = if maxDepth > 0 then 6 // all objects
                                                 else 4 // only non-recursive
                      match rand range with
                      | 0 -> JSON_Null
                      | 1 -> JSON_Boolean (genBoolean())
                      | 2 -> JSON_Number (genNumber())
                      | 3 -> JSON_String (genName())
                      | 4 -> JSON_List (genList()) 
                      | _ -> ((genObj (maxDepth - 1)))
                  (genName(), genObj''()) 
              match fCnt with
              | c when c > 0 -> genObj' ((genField()) :: acc) (c - 1)
              | _ -> JSON_Obj acc
          genObj' [] ((rand MAX_FIELDS) + 1)
      genObj MAX_OBJ_DEPTH
  //*** END Random Generator ***//
  let lab3 = function
    | Object list -> 0
  
      
  
  let main () = 
    let values = new NameValueCollection()
  