# $lista = odwracanie_listy( $lista ) 
#   Odwr kolejno elementw na licie.
sub odwracanie_listy {
    my $stary = shift;
    my $nowy = undef;

    while (my $aktual = $stary) {
        $stary = $stary->[NEXT];
        $aktual->[NEXT] = $nowy;
        $nowy = $aktual;
    }

    return $nowy;
}

