anchor.diff:      _ = ?BLOOM:add(BF, 5423452345),
       fprof:trace(stop),
       fprof:profile(file, "bloom_fprof.trace"),
  -    fprof:analyse([{dest, "bloom_fprof.analysis"}, {cols, 120}]),    
  +    fprof:analyse([{dest, "bloom_fprof.analysis"}, {cols, 120}]),
       ok.
   
   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   
   newBloom(ElementNum, Fpr) ->
  -	HFCount = ?BLOOM:calc_HF_numEx(ElementNum, Fpr),
  -	Hfs = ?HFS:new(HFCount),
  -	?BLOOM:new(ElementNum, Fpr, Hfs).
  +    HFCount = ?BLOOM:calc_HF_numEx(ElementNum, Fpr),
  +    Hfs = ?HFS:new(HFCount),
  +    ?BLOOM:new(ElementNum, Fpr, Hfs).
   
   
   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  
positive.code:                          end,
                           fun(X, Y) -> X + Y end,
                           0),
  	NumFound / NumNotIn.
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  
  time_measurement(_) ->
      %parameter
      ExecTimes = 100, 
      BFSize = 1000, % req: mod 2 = 0
      
      %measure Build times
      {BTMin, BTMax, BTMed, BTAvg} = 
          measure_util:time_avg(fun() -> for_to_ex(1, round(BFSize / 2), 
                                                   fun(I) -> I end, 
                                                   fun(I, B) -> ?BLOOM:add(B, I) end, 
                                                   newBloom(BFSize, 0.1)) 
                                end,
                                [], ExecTimes, false),
      %measure join time
      BF1 = for_to_ex(1, 
                      round(BFSize / 2), 
                      fun(I) -> I end, fun(I, B) -> ?BLOOM:add(B, I) end, newBloom(BFSize, 0.1)),
      BF2 = for_to_ex(round(BFSize / 2) + 1, 
                      BFSize, 
                      fun(I) -> I end, fun(I, B) -> ?BLOOM:add(B, I) end, newBloom(BFSize, 0.1)),
      {JTMin, JTMax, JTMed, JTAvg} = 
          measure_util:time_avg(fun() -> ?BLOOM:join(BF1, BF2) end, [], ExecTimes, false),
      
      %print results
      ct:pal("EXECUTION TIMES in microseconds~n"
             "PARAMETER - ExecTimes=[~w] - BFSize=[~w]~n"
  
negative.code:     B2 = ?BLOOM:add(B1, X),
      ?assert(?BLOOM:is_element(B2, X)),
      B3 = ?BLOOM:add(B2, Y),
      ?assert(?BLOOM:is_element(B3, X) andalso
                  ?BLOOM:is_element(B3,Y)),
      true.
  
  