anchor.diff:      ct:timetrap({minutes,60}), %% valgrind needs a lot of time
       case ct:get_timetrap_info() of
           {_,{_,1}} -> % No scaling
  -            Iterations = ?LOOP div 5,
               Effort = proplists:get_value(measure_effort, Config, 1),
  -            do_measure(Iterations * Effort);
  +            measure(Effort);
           {_,{_,Scale}} ->
               {skip,{will_not_run_in_scaled_time,Scale}}
  -    end.
  +    end;
  +measure(Effort) when is_integer(Effort) ->
  +    Iterations = ?LOOP div 5,
  +    do_measure(Iterations * Effort).
  +
   
   -define(CHECK_UNIFORM_RANGE(Gen, Range, X, St),
           case (Gen) of
  
positive.code:         lcg35_inline ->
              {_, S} = rand:seed_s(dummy),
              {rand, S bsr (58-35)};
          lcg35_procdict ->
              {_, S} = rand:seed_s(dummy),
              _ = put(Alg, S bsr (58-35)),
  
negative.code:             {?MODULE, <<>>};
          unique_phash2 ->
              {?MODULE, undefined};
          system_time ->
              {?MODULE, undefined};
          mcg35_inline ->
              {_, S} = rand:seed_s(dummy),
  