sub cbrt { return exp(log($_[0])/3) }