dc -e{Fk[d/]sx??sp,d2-lp*2+lp*r2\>xr{,},*lp*p}