anchor.diff:      ?LOG("Final patterns created: ~p~n",[L]),
       L.
   
  -
  -%%%%%%%%%%%%%%%%%%%%%
  -%% -spec additional_gen (json:json_term(), integer(), integer()) -> list(eqc_gen:gen(json:json_term())).
  -
  -%% additional_gen(_Schema,0,_) ->
  -%%     [];
  -
  -%% additional_gen(Schema,N, Length) when N > 0 ->
  -
  -%%          [ { stringGen(Length) , {struct,[Schema]}}  | additional_gen(Schema,N-1,Length)].
  -
   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   %% Misc functions
   
  
positive.code: -compile(export_all).
  
  %%LOGS
  % -define(debug,true).
  
  -ifdef(debug).
  -define(LOG(X,Y),
  
negative.code: additional_gen(AdditionalSchema,N) when N > 0 ->
      case AdditionalSchema of
          {} ->
              ?LOG("Empty schema~n",[]),
              [{randString(),anyType()} | additional_gen(AdditionalSchema,N-1)];
          Schema ->
              ?LOG("Not empty schema, type is ~p~n",[Schema]),
              [{randString(),Schema} | additional_gen(AdditionalSchema,N-1)]
      end.
  
  