Plot[x Sin[x^(-1)], {x, -100, 100}]