sub xform{ 
    my $v = shift; 
    my $sgn = $v<=>0; 
    $v = $v * $sgn; 
    return $sgn * sqrt( $v ) * 10; 
};;