#!/usr/bin/perl

use strict;

my @v;
my $posicio;

open (openfile, "<posicio.txt");
 
while (<openfile>){

	$posicio=$_;
	chomp $posicio;

}

while (<stdin>) {
	
	@v=split(/	/,$_);
	if ($v[6] <= $posicio && $v[7] >= $posicio){
		print $_;
	}
}