>perl -le"use POSIX qw( pow ); print pow(-3, 1/3); -1.#IND