/say_bottles
{
  dup 0 eq
  {
    pop    
    (no more bottles of beer) =only
  }
  {
    dup =only
    ( bottle) =only
    1 eq not {(s) =only} if
    ( of beer) =only    
  } ifelse
} def

/say_bottles_capitalized
{
  dup 0 eq
  {
    pop    
    (No m