anchor.diff:  %% make_seed({Alg,Seed}) setup RNG with a previously exported seed
   %% and return the NEW state
   make_seed({Alg0, Seed}) ->
  -    Alg = mk_alg(Alg0),
  +    {Alg,_SeedFun} = mk_alg(Alg0),
       _ = seed_put({Alg, Seed}),
       {Alg, Seed}.
   
  
positive.code: -define(SEED_DICT, random_seed).
  
  -record(alg, {type=?DEFAULT_ALG_HANDLER :: alg(),
  	      seed :: fun(),
  	      uniform :: fun(), uniform_n :: fun()}).
  
  %% =====================================================================
  
negative.code: 		       state().
  
  make_seed(Alg0, S0 = {_, _, _}) ->
      {Alg, Seed} = mk_alg(Alg0),
      AS = Seed(S0),
      _ = seed_put({Alg, AS}),
      {Alg, AS}.
  