base = 64

n=base^140-1


while ! isPrime[n]
{
println[base[n,base]]
   n = n - 2
}

s = base[n, base]
println[s]
println[length[s]]

n2 = parseInt[s, base]
println[isPrime[n2]]

parseInt[repeat["/",140], 64]