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