anchor.diff:                     s1 = R1#exsplus_state.s1}),
       R2.
   
  -%% {uniform_s, State} -> {F, NewState}:
  -%% Generate float from
  -%% given xorshift128plus internal state.
  -%% (Note: 0.0 =&lt; result &lt; 1.0)
  +%% Generate float from given xorshift128plus internal state.
   
   exsplus_uniform(R0) ->
       {I, R1} = exsplus_next(R0),
       {I / 18446744073709551616.0, R1}.
   
  -%% {uniform_s, N, State} -> {I, NewState}:
   %% Generate integer from given xorshift128plus internal state.
  -%% (Note: 0 =&lt; result &lt; MAX (given positive integer))
   
   exsplus_uniform(Max, R) ->
       {V, R1} = exsplus_next(R),
  
positive.code: 
  %%-----------------------------------------------------------------------
  
  %% seed0: initial PRNG seed
  %% set the default seed value to xorshift64star state
  %% in the process directory.
  
  exs64_seed0() -> 1234567890123456789.
  
  %% seed: seeding with three Integers
  %% set the seed value to xorshift64star state in the process directory
  %% with the given three unsigned 32-bit integer arguments
  %% Multiplicands here: three 32-bit primes
  
  
negative.code:       16#f0123456789abcde
       ], []}.
  
  %% Set the seed value to xorshift1024star state in the process directory
  %% with the given three unsigned 21-bit integer arguments
  %% Multiplicands here are three 21-bit primes.
  %% TODO: this seeding has a room to improve.
  
  exs1024_seed({A1, A2, A3}) ->
  