RosettaCodeData/Task/Flatten-a-list/Perl-6/flatten-a-list-1.pl6

my @l = [[1], 2, [[3,4], 5], [[[]]], [[[6]]], 7, 8, []];

say .perl given gather @l.deepmap(*.take); # lazy recursive version