my ($self, $n)= @_;
 my $len= scalar @$self;
 print " *** n=$n, len=$len\n";
 my @left= $self->[0..$n-1];
 my @right= $self->[$n..$len-1];