anchor.diff:  %% ====================================================================
   %% Internal functions
   %% ====================================================================
  +
  +pareto(Mean, Shape) ->
  +    S1 = (-1 / Shape),
  +    S2 = Mean * (Shape - 1),
  +    fun() ->
  +            U = 1 - random:uniform(),
  +            trunc((math:pow(U, S1) - 1) * S2)
  +    end.
  +
   
   sequential_int_generator(Ref, MaxValue) ->
      %% A bit of evil here. We want to generate numbers in sequence and stop
  
positive.code: 
  -include("basho_bench.hrl").
  
  %% ====================================================================
  %% API
  %% ====================================================================
  
negative.code:     MaxKey;
  dimension({uniform_int, MaxKey}) ->
      MaxKey;
  dimension({pareto_int, _}) ->
      0.0;
  dimension({pareto_int_bin, _}) ->
      0.0;
  dimension(Other) ->
      ?FAIL_MSG("Unsupported key generator dimension requested: ~p\n", [Other]).
  