>perl -e"print( (-3) ** (1/3) )" -1.#IND