anchor.diff:  exs1024_uniform(Max, State0) ->
       {F, State} = exs1024_uniform(State0),
       {trunc(F * Max) + 1, State}.
  -
  -
  
positive.code: -module(rand).
  
  -export([seed_s/1, seed_s/2, seed/1, seed/2,
  	 export_seed/0, export_seed/1,
           uniform/0, uniform/1, uniform_s/1, uniform_s/2]).
  
  -compile({inline, [exs64_next/1, exsplus_next/1,
  
negative.code: -type alg_seed() :: any().
  %% This is the algorithm handler function within this module
  -type alg_handler() :: #{type      => alg(),
  			 uniform   => fun(),
  			 uniform_n => fun()}.
  
  %% Internal state
  -type state() :: {alg_handler(), alg_seed()}.
  