Perl 6 Perl 6 series operator #14

How about...?

2, 3, -> *@x { first * %% none(@x), @x[*-1]..* } ... 100
continued...
Copyright © 2010
http://www.pmichaud.com/2010/pres/