[ /* ------------------------------------------------------------------ Lasso 9 Jonathan Guthrie Treefrog Interactive Newmarket, ON, Canada For more information about Lasso, please visit http://www.lassosoft.com/ ------------------------------------------------------------------ */ define beer99 => type { data public beer = 99 public s() => { .beer != 1 ? return 's' } public run() => { local(out = string) while(.beer) => { #out += '

' #out += .beer + ' bottle' + .s + ' of beer on the wall,
' #out += .beer+' bottle' + .s + ' of beer;
' --.beer #out += 'Take one down, pass it around,
' #out += .beer +' bottle' + .s +' of beer on the wall.' #out += '

' } return #out } } local(beerwall = beer99) #beerwall->run ]