anchor.diff:  // MAIN VERSION WITH TABULATIONS
   let stringify (json : JSON) : string = 
       tabbedStringify "" "  " json
  -
  +//*** TEST Stringification ***//
  +printfn "%s" (plainStringify (parse json))
  +printfn "%s" (stringify (parse json))
  +
  +printfn "%s" (plainStringify (parse json2))
  +printfn "%s" (stringify (parse json2))
   //*** END Stringification ***//
   
   //*** BEGIN Random Generator ***//
  
positive.code:         genObj' [] ((rand MAX_FIELDS) + 1)
      genObj MAX_OBJ_DEPTH
  
  //*** END Random Generator ***//
  
  //*** BEGIN LAB 3 ***//
  // Вариант 6: Составить список из всех повторяющихся ключей двух JSON-объектов //
  
  let getKeys obj: (string list) =
      let rec getKeys' (acc : string list) = function
  
negative.code: 
  let explode (s:string) = [for i in s -> i]
  
  //*** BEGIN Parse ***//
  type Token = OpenBrace | CloseBrace | OpenBracket | CloseBracket | Colon | Comma
              | Null | String of string | Number of int | Boolean of bool
              /// is True | False needed?
  