p { prime1 x
C display prime numbers up to x
C doesn't work in 2.11BSD version
p { (2=+-0=aJ.|a)/a{Ix