anchor.diff:  
   concat_and_reverse([H|T], Res) ->
       concat_and_reverse(T, [H|Res]).
  +
  +pattern_gen(Pattern) ->
  +    RegularExpression = binary_to_list(Pattern),
  +    InternalRegularExpression = regexp_parse:string(RegularExpression),
  +    ?LET
  +       (String,
  +        gen_string_from_regexp:gen(InternalRegularExpression),
  +        list_to_binary(String)).
  
positive.code:     % TODO: generator of valid JSON strings
      % Its not a good generator. Implementation has to be changed
      ?LET(Name,name(),list_to_binary(Name)).
          %?SIZED(Size,list_to_binary(name())).
  stringGen(0) ->
      [];
  
  
negative.code:         %% integer
          %%     A JSON number without a fraction or exponent part. 
          <<"integer">> ->
              
  	    MaxScanned = jsonschema:keyword(Schema,"maximum"),
  	    ExcMaxScanned = jsonschema:keyword(Schema,"exclusiveMaximum",false),
  	    MinScanned = jsonschema:keyword(Schema,"minimum"),
  	    ExcMinScanned = jsonschema:keyword(Schema,"exclusiveMinimum",false),
  	    Multiple = jsonschema:keyword(Schema,"multipleOf",1),
  	    
              % Setting up keywords
  	    case MaxScanned of
  		undefined -> Max = undefined;
  		
  