sub _cuberoot { my $res = abs($_[0])**(1/3); $_[0] < 0 ? -$res : $res; }