MACRO testdist(dist,n/100/)
mean(?(p)dist(?(q)dist(ppoints(n),$*),$*)-ppoints(n))
END
