sub knot {
my $knoten = {        'zahl' => shift,
            'linksweg' => undef,
            'rechtsweg' => undef };
return $knoten;
    }