!bottles of beer in uc4-script !by Klaus Geigenberger - Bayreuth, Germany in March 2008 :SET &s#="s" :SET &i#=FORMAT("99") :WHILE &i# <> "no" : PRINT "&i# bottle&s# of beer standing on the wall, &i# bottle&s# of beer." : SET &i# = SUB(&i#,1) : SET &i# = FORMAT(&i#) : IF &i# = 1 : SET &s# = "" : ENDIF : IF &i# = 0 : SET &i# = "no" : SET &s# = "s" : ENDIF : PRINT "Take one down and pass it around, &i# bottle&s# of beer on the wall." : PRINT " " :ENDWHILE :PRINT "No more bottles of beer standing on the wall, no more bottles of beer." :PRINT "Go to the store and buy some more, 99 bottles of beer on the wall."