# Специально для барафага :3

{
package AnalBall;

	use strict;

	sub new {
		my $self=$_[1]?$_[1]:{};
		bless $self;

		$self->{diameter}=4.5 unless $self->{diameter}; # диаметр шарика по умолчанию
		$self->{color}='white' unless  $self->{color}; # цвет шарика по умолчанию
		return $self;

	}

}


{
package AnalBalls;

	use strict;

	sub new {
		my $self=$_[1]?$_[1]:{};
		bless $self;

		$self->{count}=5 unless $self->{count}; # колчество шариков по умолчанию

		my @balls;

		push @balls, AnalBall->new({diameter=>$self->{diameter}}) for (1..$self->{count});

		$self->{balls}=\@balls;

		return $self;
	}

	sub push_in { # Засовываем шарик в жопу. Аргументы - обьект педачелло
		my ($self, $ass)=@_;
		return $ass->store( pop @{$self->{balls}} );
	}

	sub pop_out { # Вынимаем шарик. Аргументы функции - обьект педачелло
		my ($self, $ass)=@_;
		push @{$self->{balls}, $ass->restore();
	}


}