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