sub new {
  my $x = shift;
  my $class = ref($x) || $x; 
  my @liste = @_;
  my $ref_wurzel = newtree(\@liste);
  my $self = {
    wurzel => $ref_wurzel,
    list => \@liste
  };
  bless ($self, $class);
  return $self;
}