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