!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# = ""
: