use 5.016;

sub mk_chunker
{
	my $n = shift;
	die unless $n > 0;
	return sub {
		return \@_ if @_ < $n;
		return (
			[ @_[0..$n-1] ],
			__SUB__->(@_[$n..$#_]), # recursion
		);
	};
}