anchor.diff:      {Meta, binary_to_list(hd(NewLstBin))}.
   
   json_mutation(Ast, {N, NT}) ->
  -    json_mutation(Ast, {N, NT}, erlamsa_rnd:rand(7000)).
  +    json_mutation(Ast, {N, NT}, erlamsa_rnd:rand(8)).
   
   json_mutation(Ast, {N, _NT}, 0) ->
       {Res, _, _} = json_swap(Ast, N),
  
positive.code: %%% Mutations
  %%%
  
  mutate_innertext_prob(String, _Muta, Prob, Rnd) when Rnd > Prob ->
      {[], String}; %% No mutations
  mutate_innertext_prob(String, Muta, _Prob, _Rnd) ->
  
negative.code: fold_ast(H, Acc) when is_list(H), length(H) > 1 ->
      M = fold_list(fun (A) -> fold_ast(A, []) end, H, []),
      fold_ast([], ["[", M, "]" | Acc]).
  %% if binary, nothing to do here
  fold_ast(Binary) when is_binary(Binary) ->
      Binary;
  %% default
  fold_ast(Ast) ->
      list_to_binary(fold_ast(Ast, [])).
  
  