t { primen n;w;b;k
C display prime numbers up to n
k { Dn*.5
v { 1+2XID(n-1)%2
t{2
lp: b{v[1]
t{t,b
v{(~0=b|v)/v
}(b<k)/lp
t{t,v