sub balanced
{
  my $string = shift;
  my $stack = 0;

  for my $i (0..length($string)-1) {
    last if $stack < 0;
    $stack++ if substr($string,$i,1) eq '(';
    $stack-- if substr($string,$i,1) eq ')';
  }
  return $stack ?0 : 1;
}