2 + 2

a <- -10:9

b <- a^2

c <- mean(a)

d <- c + b + c

print(mean(a))