r { primei x
C display prime numbers up to x
p { 2 3
}(x$Rp)/8
r { `1Yp
}(0=p|r{r+2)/5
p{p,r
}3
r{xRp