sub method {
    my $self= shift(@_);
    croak 'Usage: $oldVal= $obj->method( $idx [, $newVal ] )',$/
      unless  1 <= @_  &&  @_ <= 2;
    my $i= shift(@_);
    my $old= $self->{B}[$i];
    $self->{B}[$i]= shift(@_)   if  @_;
    return $old;
}