[ 10 1 [a,b] [| n | n present " bottle" append n 1 = [ "s" append ] unless " of beer" append [ % " on the wall, " % ] [ % "!\n" % ] bi "Take one down, pass it around, \n" % n 1 = [ "no" % ] [ n 1 - # ] if " more bottle" % n 2 = [ "s" % ] unless " of beer on the wall!\n\n" % ] each ] "" make print nl