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