sub xform2{ my $v = shift; my $sgn = $v<=>0; $v = $v * $sgn; my $root3 = exp( log( $v||1e-100 ) / 3 ); return $sgn * $root3 * 100; }