#!/usr/bin/perl
while (<STDIN>)
{
	if(!(/.*\(.*\(.*\).*\).*\(.*\).*\(.*\).*\(.*\)/))
	{
		print $_;
	}
}
