anchor.diff:  
   let lab3 obj1 obj2 =
       intersect (getKeys obj1) (getKeys obj2)
  +
  +let lab3Recursive obj1 obj2 =
  +    intersect (getKeysRecursive obj1) (getKeysRecursive obj2)
  +
   //*** TEST LAB 3 ***//
   let j1 = """
   {
  
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:     match ts with
      | [] -> obj
      | _ -> failwith "json parse' error"
  //*** TEST Parse ***//
  
  //*** ENG Parse ***//
  
  
  
  //*** BEGIN Stringification ***//
  
  let rec tabbedStringify (prefix : string) (tab : string) (json : JSON) : string =
      let itself = tabbedStringify (prefix + tab) tab
  