Example of the Squeeze Theorem

Manipulate[Plot[Abs[x]^exponent Sin[1/x], {x,-r,r}], {exponent,0,2},{r,4,.0004}]