number <- 8
power <- 3
result1 <- number ^ power
# result1 = 512
# ** is the same as ^
result2 <- number ** power
# result2 = 512
# No modular pow(): take the remainder after
result3 <- (number ^ power) %% 100
# result3 = 12
# A negative power gives a fraction
result4 <- number ^ -1
# result4 = 0.125
# ^ binds tighter than unary minus: -(2 ^ 2)
result5 <- -2 ^ 2
# result5 = -4
# Integers do not stay integers
result6 <- class(8L ^ 3L)
# result6 = numeric
cat("result1 =", result1, "\n")
cat("result2 =", result2, "\n")
cat("result3 =", result3, "\n")
cat("result4 =", result4, "\n")
cat("result5 =", result5, "\n")
cat("result6 =", result6, "\n")