Residue[z/(e^z-1),{z,0}]