procedure main()
    #limit to the first 10000 primes
    every write(!(p := 1, a := [2])| 1(|(p +:= 2), not(p % !a = 0), put(a, p))) \1000
end