dc -eFk[d/]sx[x??spd2-lp*2+lp*r1=xrlp]dx**p