sub isIntVal {
    my( $i )= @_;
    return  $i =~ /^\s*[-+]?\d+\s*$/;
}