10
thousand
1
primes #(1: primes_below)
save-a
    digits
        push-a
        member
    m2
    product
f4
unlines