anchor.diff:  %% NOTE: this module will replace OTP random module
   -module(random).
   
  --export([seed0/0,
  -	 %% New functions
  -	 seed0/1, make_seed/1, make_seed/2, export_seed/0, export_seed/1,
  +-export([%% New functions
  +	 make_seed/1, make_seed/2, export_seed/0, export_seed/1,
            uniform/0, uniform/1, uniform_s/1, uniform_s/2]).
   
  --export([seed/0, seed/1, seed/3]). %% Deprecate ?
  +-export([seed0/0, seed/0, seed/1, seed/3]). %% Deprecate ?
   
   -define(DEFAULT_ALG_HANDLER, as183).
   -define(SEED_DICT, random_seed).
  
positive.code: 
  seed_get() ->
      case get(?SEED_DICT) of
          undefined -> seed0();
          Old -> Old  % no type checking here
      end.
  
  
negative.code: seed0() ->
      seed0(?DEFAULT_ALG_HANDLER).
  
  seed0(Alg) ->
      make_seed(Alg, {3172, 9814, 20125}).
  
  