my $count = 0;
while(<STDIN>) {
  chomp;
  my ($x,$y) = split;
  if ($x > 123 and $x < 124 and $y > 456 and $y < 457) {
    $count++;
  }
}
print "123-124 456-457 $count\n";