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