sub new {
   my $class = shift;
   my $val = shift;
   my $self = { val => $val, l => undef, r => undef };
   bless $self, ref($class) || $class;
   return $self;
}