curve(log, from = 0, to = 1000, xlab = 'x',

ylab = 'log(x)', main = 'The logarithm function')

print(3 ^ -800, digits = 22)

print(log(3 ^ -800), digits = 22)

print(-800 * log(3), digits = 22)

print(3 ^ -600 * 3 ^ -100 * 3 ^ 150, digits = 22)

print(log(3) * (-600 - 100 + 150), digits = 22)

print(exp(log(3) * (-600 - 100 + 150)), digits = 22)