[ 10 1 [a,b] [| n |
  [ n # " bottle" % n 1 = [ "s" % ] unless " of beer" % ] "" make
  [ % " 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