sub append {
   my $self = shift;
   my @vals = @_;
   while ( my $n = shift @vals )  {
   
    if ($n < $self->{val}) {
         $self->newtree($n) 
         }
       elsif ($n > $self->{val}) { 
          $self->newtree($n) 
          } 
}          
}