if (    $ARGV[0] !~ m{ \A [+-]? \d+ \z }xms
     || $ARGV[1] !~ m{ \A [+-]? \d+ \z }xms ) {
    die "usage: $0 [-s] <integer> <integer>\n";
}