anchor.diff:  		       state().
   
   make_seed(Alg0, S0 = {_, _, _}) ->
  -    Alg=#alg{seed=Seed} = mk_alg(Alg0),
  +    {Alg, Seed} = mk_alg(Alg0),
       AS = Seed(S0),
       _ = seed_put({Alg, AS}),
       {Alg, AS}.
  
positive.code: -define(SEED_DICT, random_seed).
  
  -record(alg, {type=?DEFAULT_ALG_HANDLER :: alg(),
  	      seed :: fun(),
  	      uniform :: fun(), uniform_n :: fun()}).
  
  %% =====================================================================
  
negative.code: 
  %% Setup alg record
  mk_alg(as183) ->  %% DEFAULT_ALG_HANDLER
      {#alg{type=as183, uniform=fun as183_uniform/1,
  	  uniform_n=fun as183_uniform/2},
       fun as183_seed/1};
  mk_alg(exs64) ->
      {#alg{type=exs64, uniform=fun exs64_uniform/1,
  	  uniform_n=fun exs64_uniform/2},
       fun exs64_seed/1};
  mk_alg(exsplus) ->
      {#alg{type=exsplus, uniform=fun exsplus_uniform/1,
  	  uniform_n=fun exsplus_uniform/2},
       fun exsplus_seed/1};
  mk_alg(exs1024) ->
      {#alg{type=exs1024, uniform=fun exs1024_uniform/1,
  	  uniform_n=fun exs1024_uniform/2},
       fun exs1024_seed/1};
  mk_alg(sfmt) ->
      {#alg{type=sfmt, uniform=fun sfmt_uniform/1,
  	  uniform_n=fun sfmt_uniform/2},
       fun sfmt_seed/1};
  mk_alg(tinymt) ->
      {#alg{type=tinymt, uniform=fun tinymt_uniform/1,
  	  uniform_n=fun tinymt_uniform/2},
       fun tinymt_seed/1}.
  
  
  %% =====================================================================
  