anchor.diff:  
   %% Setup alg record
   mk_alg(as183) ->  %% DEFAULT_ALG_HANDLER
  -    #alg{type=as183, seed0=fun as183_seed0/0, seed=fun as183_seed/1,
  +    #alg{type=as183, seed=fun as183_seed/1,
   	 uniform=fun as183_uniform/1, uniform_n=fun as183_uniform/2};
   mk_alg(exs64) ->
  -    #alg{type=exs64, seed0=fun exs64_seed0/0, seed=fun exs64_seed/1,
  +    #alg{type=exs64, seed=fun exs64_seed/1,
   	 uniform=fun exs64_uniform/1, uniform_n=fun exs64_uniform/2};
   mk_alg(exsplus) ->
  -    #alg{type=exsplus, seed0=fun exsplus_seed0/0, seed=fun exsplus_seed/1,
  +    #alg{type=exsplus, seed=fun exsplus_seed/1,
   	 uniform=fun exsplus_uniform/1, uniform_n=fun exsplus_uniform/2};
   mk_alg(exs1024) ->
  -    #alg{type=exs1024, seed0=fun exs1024_seed0/0, seed=fun exs1024_seed/1,
  +    #alg{type=exs1024, seed=fun exs1024_seed/1,
   	 uniform=fun exs1024_uniform/1, uniform_n=fun exs1024_uniform/2};
   mk_alg(sfmt) ->
  -    #alg{type=sfmt, seed0=fun sfmt_seed0/0, seed=fun sfmt_seed/1,
  +    #alg{type=sfmt, seed=fun sfmt_seed/1,
   	 uniform=fun sfmt_uniform/1, uniform_n=fun sfmt_uniform/2};
   mk_alg(tinymt) ->
  -    #alg{type=tinymt, seed0=fun tinymt_seed0/0, seed=fun tinymt_seed/1,
  +    #alg{type=tinymt, seed=fun tinymt_seed/1,
   	 uniform=fun tinymt_uniform/1, uniform_n=fun tinymt_uniform/2}.
   
   
  
positive.code: 
  %% algorithm handler functions
  
  sfmt_seed0() ->
      I = sfmt_init_gen_rand(1234),
      {I, I}.
  
  %% Puts the seed computed from the given 32-bit integer list
  %% by init_by_list32/1
  
negative.code: -define(SEED_DICT, random_seed).
  
  -record(alg, {type=?DEFAULT_ALG_HANDLER :: alg(),
  	      seed :: fun(),
  	      uniform :: fun(), uniform_n :: fun()}).
  
  %% =====================================================================
  