Q

 

type Program implements Object {

        object Bottle is Integer <- 99;

       

        function main() returns Integer

        {

                while (Bottle > 0)

                {

                        System.Console.WriteLine(Bottle, " bottles of beer on the wall,", Bottle, " bottles of beer!")

                        Bottle <- Bottle - 1;

                        System.Console.WriteLine("Take one down and pass it around,", Bottle, " bottles of beer on the wall.")

                }

                System.Console.WriteLine("No more bottles of beer on the wall, no more bottles of beer.")

                System.Console.WriteLine("Go to the store and buy some more, 99 bottles of beer on the wall.")

                return 0;

        }

}