anchor.diff:  seed(Alg0, AS0) when is_atom(Alg0) ->
       Alg = #alg{seed=Seed} = mk_alg(Alg0),
       AS = Seed(AS0),
  -    seed_put({Alg, AS}),
  +    _ = seed_put({Alg, AS}),
       {Alg, AS};
   seed(Alg, AS) when is_record(Alg, alg) ->
  -    seed_put({Alg, AS}),
  +    _ = seed_put({Alg, AS}),
       {Alg, AS}.
   
   %%% uniform/0, uniform/1, uniform_s/1, uniform_s/2 are all
  
positive.code: 
  uniform() ->
      {X, Seed} = uniform_s(seed()),
      seed_put(Seed),
      X.
  
  %% uniform/1: given an integer N >= 1,
  
negative.code: 
  uniform(N) ->
      {X, Seed} = uniform_s(N, seed()),
      _ = seed_put(Seed),
      X.
  
  %% uniform_s/1: given a state, uniform_s/1
  