primetest.tcl

#!/usr/bin/env tclsh

# print first 1000 primes.
# by tony baldwin

set primes [ list 2 3 5 ]
puts "Listing prime numbers: \n1\n2\n3\n5"
set q 7
while {[llength $primes] < 1000} {
    foreach i $primes {
    if { $q % $i == 0 } {
        set q [expr { $q   2 }]
        break
        } else {
        puts $q
        lappend primes $q
        set q [expr { $q   2 }]
        }
    }
}
set winner [expr { $q - 2 }]
puts "The 1000th prime number is $q."