/* Rexx Version of the Bottles program */
/* by Lee Stewart (ls@sweng.stortek.com) */
   Trace Off;
   Do Forever;
      Do i = 99 To 1 By -1;
         If i > 1 Then pl = 's';
                  Else pl = '';
         Say i 'bottle'pl 'of beer on the wall,' i 'bottle'pl 'of beer';
         Say 'Take one down, pass it around';
         End;
      Say 'No more bottles of beer on the wall, no more bottles of beer';
      Say 'Go to the store and buy some more';
      End;