Select Code to Download

sub natatime ($@)
{
...
    my @list = @_;
    return sub { return splice @list, 0, $n; }
}