Plot[(Tan[Sin[x]]-Sin[Tan[x]])/x^4,{x,-0.01,0.01}]