prevPrimes = new array
n = previousPrime[10000]
do
{
   prevPrimes.pushFirst[n]
   n = previousPrime[n]
} while n != undef

nextPrimes = new array
n = 2
do
{
   nextPrimes.push[n]
   n = nextPrime[n]
} while n < 10000

println["prevPrimes is $prevPrimes"]
println["nextPrimes is $nextPrimes"]

println[prevPrimes == nextPrimes ? "OK" : "ERROR"]