99-bottles-maybe-fixed.pl6

my @bottles = (flat ((3...2) X~ ' bottles'),
              '1 bottle',
              'no more bottles',
              '99 bottles');

my @actions = (flat 'Take one down and pass it around' xx 4,
              'Go to the store and buy some more');

for flat @bottles Z @actions Z @bottles[1..*] {
    say "$^a of beer on the wall, $^a of beer.  $^b, $^c of beer on the wall.\n".tc;
}