if ($n < $self->{val}) { $self->set_l($n) }
       elsif ($n > $self->{val}) { $self->set_r($n) }