// 99 Bottles of Beer in Ox
// http://www.nuff.ox.ac.uk/Users/Doornik/doc/ox/oxmenu.html
//
// by Riccardo 'Jack' Lucchetti
// jack@dea.unian.it


#include<oxstd.h>

enum {NOWALL, WALL}

bob(const n, const otw)
{
  decl s="";

  if(n==0)
    s=sprint("No more bottles of beer");
  else
    if(n==1)
      s=sprint(n," bottle of beer");
    else
      s=sprint(n," bottles of beer");

  if(otw)
    s~=" on the wall";

  return(s);
}

main()
{
  decl bottles;
  for(bottles=99; bottles>0; )
    {
      println(bob(bottles,WALL),",");
      println(bob(bottles,NOWALL),",");
      println("Take one down, pass it around;");
      println(bob(--bottles,NOWALL),".\n");
    }

  println("Time to buy more beer!");

}