/ 99 bottles of beer
bs:{:[x=0;"no more bottles";x=1;"1 bottle";($x)," bottles"]}
d:{b::$bs x;bp::$bs x-1;sayln b," of beer on the wall, ",b," of beer.\nTake one down and pass it around, ",bp," of beer on the wall.\n"}
d'100@1;"No more bottles of beer on the wall, no more bottles of beer.\nGo to the store and buy some more, 99 bottles of beer on the wall.\n"