[top]
primes : { &0,2=+/0=x!/:x:1+!x }
sieve : { [ n ] r : n^0.5 s : 0,(n-1)#1 p : 0 while[ p<r; p +: 1+(p _ s)?1; s[-1+1_ p*1+!_ n%p] : 0 ] 1+&s }