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