dc -eFk[d/]sx[d2-lp*2+lp*r2\>x]sy??splyxrlyx*lp*p