[math-fun] oops, that's Plot[BesselJ[0, x], {x, -20, 20}]