ludic numbers with lazy splicing

ludic.p6

sub lazy-splice(@list, @splice) {
    gather { take @list[$_] for @splice }
}

constant ludic = 1, gather {
    my @candidates :=  2 .. *;
    loop {
	take my $ludic = @candidates[0];
	@candidates := lazy-splice(
	    @candidates,
	    grep * % $ludic, 1 .. *
	);
    }
}

say ludic[^25];