sub new {
    my $class = shift;
    my $self  = {};

    bless( $self, $class );

    my @liste = @_;

    $self->{'wurzel'} = newtree (\@liste);

    return $self;
}