#!/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 $_;
	}
}