Select Code to Download

sub top_x {
    my( $n, $aref ) = @_;
...
    }
    return @topN[ 0 .. $n ];
}

void topN( int n, AV*data ) {
    int *topN;
...
    Safefree( topN );
    Inline_Stack_Done;
}