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

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

   nums = nums2
   println[nums]
}