/** Generates right-truncatable primes */
nums = [1,3,5,7]

while length[nums] > 0
{
   nums2 = new array
   
   for n = nums
   {
      for p = [1,3,5,7,9]
      {
         n2 = parseInt["$n$p"]
         if isPrime[n2]
            nums2.push[n2]
      }
   }

   nums = nums2
   println[nums]
}