1000
double
0
primes
    digits
        dup
        is-prime #(num)
    m2
    min
f4
unlines