More work for why-perl6 talk
Add gather-take example to why-perl6