anchor.diff:      _ = [measure_1(
              Algo,
              fun (_) -> 0 end,
  -           TMark6,
  +           TMark9,
              fun (_, State) ->
                      {normal, rand:normal_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:                    {int, rand:uniform_s(Range, State)}
             end) || Algo <- Algos],
      %%
      ct:pal("~nRNG uniform integer half range performance~n",[]),
      HalfRangeFun = fun (State) -> half_range(State) end,
      TMark2 =
          measure_1(
            random,
            HalfRangeFun,
            undefined,
            fun (Range, State) ->
                    {int, random:uniform_s(Range, State)}
  