a/(z(a-z))=1/z+1/(a-z)=1/z+1/a+z/a^2+・・・
lim[z→0]zπcotπz=1
lim[z→0](zπcotπz)'=0
πcotπz=1/z+c_1z+c_2z^2+・・・
f(z)=1/z^2+1/(az)+(c_1+1/a^2)z+・・・
Res(f;z=0)=1/a