salary = 80 + seq(0, 60, by=10)
salary = salary * 1000

U = function(x){
    x^(1/4)
}
EUx = mean(U(salary))
print(EUx)

C = EUx^4
print(C)