anchor.diff:  -spec seed_s(alg() | {alg(), alg_seed()}) -> state().
   seed_s(Alg) when is_atom(Alg) ->
       seed_s(Alg, {erlang:phash2([{node(),self()}]),
  -		 erlang:monotonic_time(),
  -		 erlang:time_offset()});
  +		 erlang:system_time(),
  +		 erlang:unique_integer()});
   seed_s({Alg0, Seed}) ->
       {Alg,_SeedFun} = mk_alg(Alg0),
       {Alg, Seed}.
  
positive.code: exs1024_uniform(Max, State0) ->
      {F, State} = exs1024_uniform(State0),
      {trunc(F * Max) + 1, State}.
  
  
  
negative.code: -type alg_seed() :: any().
  %% This is the algorithm handler function within this module
  -type alg_handler() :: #{type      => alg(),
  			 uniform   => fun(),
  			 uniform_n => fun()}.
  
  %% Internal state
  -type state() :: {alg_handler(), alg_seed()}.
  