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