anchor.diff:  -spec uniform() -> float().
   
   uniform() ->
  -    {X, Seed} = uniform_s(seed()),
  +    {X, Seed} = uniform_s(seed_get()),
       _ = seed_put(Seed),
       X.
   
  
positive.code: seed_put(Seed) ->
      put(?SEED_DICT, Seed).
  
  %% seed/0: seeds RNG with default (fixed) state values and the algorithm handler
  %% in the process dictionary, and returns the old state.
  %% (compatible with the random module)
  
negative.code: -spec uniform(N :: pos_integer()) -> pos_integer().
  
  uniform(N) ->
      {X, Seed} = uniform_s(N, seed_get()),
      _ = seed_put(Seed),
      X.
  
  