TPIDSDC13 := (1+12*k-12*m)*z+(-36-262*k+12*l+80*m)*z^2+(-80*l+1072*k+386-526*m)*z^3+(-883-1632*k+526*l+280*m)*z^4+(628*k-280*l+1043-576*m)*z^5+(576*l-312*m-82-598*k)*z^6+(312*l-312*k+456-318*m)*z^7+(315+318*l-168*m-318*k)*z^8+(-168*k+168*l-68*m+243)*z^9+(-68*k+118-16*m+68*l)*z^10+(42-2*m+16*l-16*k)*z^11+(9-2*k+2*l)*z^12+z^13:

TPISDC13:=expand(TPISDC13/z):

st:=time():
ANS:=resultant(TPISDC13,diff(TPISDC13,z),z):
time()-st;

quit: