99 Bottles of Beer Example

I read Roger's challenge to write a brief version of the old "99 Bottles" program. If one isn't too fussy about formatting, it can be done in Eiffel in lessa than 20 lines.

class NINETY_NINE create make

feature make is
   local
       i: INTEGER
   do
       from i := 99 until i <= 1 loop
           print(i.out + " bottles of beer on the wall, " +
                 i.out + " bottles of beer!%NTake one down, pass it around, " +
                 (i-1).out + " bottles of beer on the wall!%N%N")
           i := i - 1
       end
       print("One bottle of beer on the wall, one bottle of beer!%N" +
             "Take it down, pass it around, no more bottles of beer on the wall!%N%N" +
             "No more bottles of beer on the wall, no more bottles of beer!%N" +
             "Go to the store, buy some more, 99 bottles of beer on the wall!%N")
   end
end

Of course, if the real point of this is to lampoon programming, and OO programming, then it seems to me that the original example (cited by Roger and over one hundred lines) doesn't go far enough! After all, it lacks a store class, and a wall class, and singer classes, and of course there the shelf class really needs to be a deferred class and the shelf variable dynamically bound to an ARRAYED_SHELF[ANY].

Or something like that.