Implemented in GXScript as an ever-lengthening chain of iterators:

/sieve
{
{
/n exch ldef
n =
/subsieve sieve ldef
{
yield
/i exch ldef
i n mod 0 ne {i subsieve next} if
}
loop
}
iter
}
ddef

/n 1 ddef
/subsieve sieve ddef
{
/n n 1 add dstore
n subsieve next ;
}
loop

--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)