anchor.diff:      _ =
           [measure_1(
              Algo,
  -           fun (_) -> 1 bsl 128 end,
  +           FullRangeMinus1Fun,
              TMark4,
              fun (Range, State) ->
                      {int, rand:uniform_s(Range, State)}
              end) || Algo <- Algos],
       %%
  -    ct:pal("~nRNG uniform integer 2^128 + 1  performance~n",[]),
  +    ct:pal("~nRNG uniform integer full range performance~n",[]),
  +    FullRangeFun = fun (State) -> half_range(State) bsl 1 end,
       TMark5 =
           measure_1(
             random,
  -          fun (_) -> (1 bsl 128) + 1 end,
  +          FullRangeFun,
             undefined,
             fun (Range, State) ->
                     {int, random:uniform_s(Range, State)}
  
positive.code:         [measure_1(
             Algo, 
             fun (_) -> 0 end,
             TMark6,
             fun (_, State) ->
                     {uniform, rand:uniform_s(State)}
             end) || Algo <- Algos],
  
negative.code:     _ = [measure_1(
             Algo,
             fun (_) -> 0 end,
             TMark9,
             fun (_, State) ->
                     {normal, rand:normal_s(State)}
             end) || Algo <- Algos],
  