dc -eFk[d/]sx[x??spd2-lp*2+lp*r2\>xrlp]dx**p