anchor.diff:  	 export_seed/0, export_seed/1,
            uniform/0, uniform/1, uniform_s/1, uniform_s/2]).
   
  --define(DEFAULT_ALG_HANDLER, as183).
  +-define(OLD_ALG_HANDLER, as183).
  +-define(DEFAULT_ALG_HANDLER, exs64).
   -define(SEED_DICT, rand_seed).
   
  --record(alg, {type=?DEFAULT_ALG_HANDLER :: alg(),
  +-record(alg, {type=?OLD_ALG_HANDLER :: alg(),
   	      uniform :: fun(), uniform_n :: fun()}).
   
   %% =====================================================================
  
positive.code: 
  seed_get() ->
      case get(?SEED_DICT) of
          undefined -> seed(exs64);
          Old -> Old  % no type checking here
      end.
  
  
negative.code: 
  -spec seed0() -> state().
  seed0() ->
      seed(?OLD_ALG_HANDLER, {3172, 9814, 20125}).
  
  %% seed(Alg) seeds RNG with runtime dependent values
  %% and return the NEW state
  