Select Code to Download

10 REM BASIC Version of 99 Bottles of beer
20 FOR X=100 TO 1 STEP -1
...
40 PRINT "Take one down and pass it around,"
50 PRINT X-1;"bottle(s) of beer on the wall"
60 NEXT

use Lingua::EN::Inflect 'inflect';
$n=shift||99;
...
Take one down, pass it around,
NO(bottle of beer,@{[--$n]}) on the wall.
BURP

    ''=~(        '(?{'        .('`'        |'%')        .('['        ^
+'-')
    .('`'        |'!')        .('`'        |',')        .'"'.        '
+\\$'
...
 '.').("\`"|  '.').("\`"|  '$')."\,".(  '!'^('+')).  '\\",_,\\"'  .'!'
+.("\!"^
 '+').("\!"^  '+').'\\"'.  ('['^',').(  '`'|"\(").(  '`'|"\)").(  '`'|
+"\,").(
 '`'|('%')).  '++\\$="})'  );$:=('.')^  '~';$~='@'|  '(';$^=')'^  '[';
+$/='`';