dc -eFk[d/]sx??sp[xd2-lp*2+lp*r2\>xr]dx*lp*p