sub isInt {
    my( $i )= @_;
    return  $i =~ /^-?\d+\z/;
}