sub cube_root
{
    my ($n) = @_;

    return (abs( $n ) ** (1 / 3)) * ($n < 0 ? -1 : 1);
}