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) + 1 end,
             TMark5,
             fun (Range, State) ->
                     {int, rand:uniform_s(Range, State)}
             end) || Algo <- Algos],
      %%
      ct:pal("~nRNG uniform float performance~n",[]),
      TMark6 =
          measure_1(
            random,
            fun (_) -> 0 end,
  
negative.code: range({_, _, _}) -> 51. % random
  
  
  half_range({#{bits:=Bits}, _}) -> 1 bsl (Bits - 1);
  half_range({#{max:=Max}, _}) -> (Max bsr 1) + 1;
  half_range({#{}, _}) -> 1 bsl 63; % crypto
  half_range({_, _, _}) -> 1 bsl 50. % random
  