sub geo_mean {
    exp( (log (reduce { $a * $b } @_)) /  @_);
}