Geometric Mean: is there a built-in?

No, but there are a few people who have written one, such as here.

Another possibility is to use this:

exp(mean(log(x)))