while (<>) {
  print if /^(-?\d+)\s+(-?\d+)/;
  print $_ for ($1..$2);
}