sub method {
	my ($self, $i) = @_;
	
	if (@_ > 2) {
		$self->{B}[$i] = $_[2];
	}
	return $self->{B}[$i];
}