anchor.diff:  -spec tester_is_prime_list(prime_list()) -> boolean().
   tester_is_prime_list([_|_] = List) ->
       Largest = lists:max(List),
  -    PrimeList = get(Largest),
  +    PrimeList = ?MODULE:get(Largest),
       lists:all(fun(X) -> is_prime_p(X, PrimeList) end, List);
   tester_is_prime_list([]) -> true.
  
positive.code: is_prime(V) when V =< ?PrimeCache ->
      is_prime_p(V, prime_cache());
  is_prime(V) ->
      is_prime_p(V, get(V)).
  
  -spec is_prime_p(pos_integer(), prime_list() | rev_prime_list()) -> boolean().
  is_prime_p(V, Primes) ->
  
negative.code: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  
  -spec tester_create_prime_list(1..2500) -> prime_list().
  tester_create_prime_list(N) -> ?MODULE:get(N).
  
  -spec tester_create_rev_prime_list(1..2500) -> rev_prime_list().
  tester_create_rev_prime_list(N) -> lists:reverse(tester_create_prime_list(N)).
  