perldl> points3d [sqrt(rvals(zeroes(50,50))/2)];