#!/usr/bin/env pluvo

% 015-case.lu - Bottles of Beer Script
Author: Sean B. Palmer, inamidst.com

main = (argv) { 
   % Cf. http://www.99-bottles-of-beer.net/lyrics.html

   for i {range 99 1} { 
      say "$i bottles of beer on the wall, $i bottles of beer."

      j = { i - 1 }
      if {j == 1} { bottles = "1 bottle" }
      else { bottles = "$j bottles" }
      say "Take one down and pass it around, $bottles of beer on the wall."
      say 
   }

   say "No more bottles of beer on the wall, no more bottles of beer."
   say "Go to the store and buy some more, 99 bottles of beer on the wall."
}

script main