anchor.diff:          {'DOWN', Ref, process, Pid, Rep} -> Rep
       end.
   
  -report_mfa(Time, Mod) ->
  -    Tps = round((?N*1000000)/Time),
  +report_mfa(Iter, Time, Mod) ->
  +    Tps = round((Iter*1000000)/Time),
       ct_event:notify(#event{name = benchmark_data,
                              data = [{suite, "stdlib_" ++ atom_to_list(Mod)},
                                      {value, Tps}]}),
  
positive.code:       [norm_nfc_list, norm_nfc_deep_l, norm_nfc_binary,
         string_lexemes_list, string_lexemes_binary
        ]},
       {binary, [{repeat, 5}],
        [match_single_pattern_no_match,
         matches_single_pattern_no_match,
         matches_single_pattern_eventual_match,
  
negative.code: 
  match_single_pattern_no_match(_Config) ->
      Binary = binary:copy(<<"ugbcfuysabfuqyfikgfsdalpaskfhgjsdgfjwsalp">>, 1000000),
      comment(test(100, binary, match, [Binary, <<"o">>])).
  
  matches_single_pattern_no_match(_Config) ->
      Binary = binary:copy(<<"ugbcfuysabfuqyfikgfsdalpaskfhgjsdgfjwsalp">>, 1000000),
      comment(test(100, binary, matches, [Binary, <<"o">>])).
  
  matches_single_pattern_eventual_match(_Config) ->
      Binary = binary:copy(<<"ugbcfuysabfuqyfikgfsdalpaskfhgjsdgfjwsal\n">>, 1000000),
      comment(test(100, binary, matches, [Binary, <<"\n">>])).
  
  matches_single_pattern_frequent_match(_Config) ->
      Binary = binary:copy(<<"abc\n">>, 1000000),
      comment(test(100, binary, matches, [Binary, <<"abc">>])).
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  
  