MaplePartialFrac.mws

>    convert((3*s^2-9*s-6)/((s+1)*(s^3-s^2-4*s+4)),parfrac,s);

-1/(s-2)-2/(s+2)+2/(s-1)+1/(s+1)

>