plot(log(x), (x, -5, 0), adaptive=False)
