99 瓶啤酒

作者：Gerhard R

打印歌曲《99 瓶啤酒》的歌词。

源代码：bottles.pl

use v6;

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

my @actions = (flat 'Take one down and pass it around' xx 99,
              '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;
}