#!/usr/bin/perl

use warnings;

my $text=shift;

my $level=0;

for my $x(split //, $text)
{
	if($level>=0)
	{
		if($x eq '(')
		{
			$level++;
		}
		elsif($x eq ')')
		{
			$level--;
		}
	}
	else
	{
		last;
	}
}

my $balanced=not $level;

print $balanced? 'баланс есть': 'нет баланса', "\n";