anchor.diff:  sfmt_func2(X) ->
       ((X bxor (X bsr 27)) * 1566083941) band ?BITMASK32.
   
  -sfmt_init_gen_rand_rec1(?SFMT_N32, Acc) ->
  -    lists:reverse(Acc);
  -sfmt_init_gen_rand_rec1(I, Acc) ->
  -    [H | _] = Acc,
  -    sfmt_init_gen_rand_rec1(
  -      I + 1,
  -      [((1812433253 * (H bxor (H bsr 30))) + I) band ?BITMASK32 | Acc]).
  -
   %% @doc generates an internal state from an integer seed
  -
  --spec sfmt_init_gen_rand(integer()) ->
  -        sfmt_intstate().
  -
  -sfmt_init_gen_rand(Seed) ->
  -    sfmt_period_certification(
  -        sfmt_init_gen_rand_rec1(1, [Seed])).
   
   sfmt_init_by_list32_rec1(0, I, _, A) ->
       {I, A};
  
positive.code: %% algorithm handler functions
  
  -define(UINT21MASK, 16#1fffff).
  
  exs1024_seed0() ->
      {
       [
        16#0123456789abcdef,
        16#123456789abcdef0,
        16#23456789abcdef01,
        16#3456789abcdef012,
        16#456789abcdef0123,
        16#56789abcdef01234,
        16#6789abcdef012345,
        16#789abcdef0123456,
        16#89abcdef01234567,
        16#9abcdef012345678,
        16#abcdef0123456789,
        16#bcdef0123456789a,
        16#cdef0123456789ab,
        16#def0123456789abc,
        16#ef0123456789abcd,
        16#f0123456789abcde
       ], []}.
  
  %% Set the seed value to xorshift1024star state in the process directory
  %% with the given three unsigned 21-bit integer arguments
  
negative.code: %-type ran() :: {integer(), integer(), integer()}.
  
  %%-----------------------------------------------------------------------
  
  %% seed: seeding with three Integers
  
  