/* Kalkulon version of 99 Bottles of beer      */
/* Juergen Holetzeck                           */
/* http://ww.kalkulon.de                       */
/*                                             */
/* How to run:                                 */
/* save as bottles.k                           */
/* run Kalkulon.exe                            */
/* type Load("bottles.k")                      */
/* type bottles()                              */

bottles()=
(
    bottles = 99,
    while ( bottles > 0; 
        Print(bottles), PrintLn(" bottle(s) of beer on the wall,"),
        Print(bottles), PrintLn(" bottle(s) of beer."),
        PrintLn("Take one down, pass it around,"),
        Print(bottles=bottles-1), PrintLn(" bottle(s) of beer on the wall.")
    )
);