Plot[Tan[z], {z, -2*Pi, 2*Pi}]