while (<DATA>) {
	chomp;
	$curr = $_;
	$line = $.;
	if ($line == 1)
	{
		$prev = $curr;
		next;
	}
	if ($line % 2 == 0 && $line > 2 && !$flag)
	{
		$prev = $curr;
		next ;
	}
	else
	{
		$flag = 0;

	}

	if ($curr eq $prev) {
	$flag = 1;
	next;	
	}
	print "$curr\n";
$prev = $curr;
}