|| :keyword for 'if': say :keyword for 'else': otherwise-say || :: 99 bottles of beer |:: $n bottles of beer| :: $n bottles of beer on the wall! :: $n bottles of beer! :: You take one down, pass it around! :: when $n is 1 :: say :: No more bottles of beer on the wall! :: otherwise-say :: $n - 1 bottles of beer on the wall! :: $n - 1 bottles of beer :: end |:: 1 bottles of beer on the wall!| :: print (formatted) :message: "1 bottle of beer on the wall!\n" |:: $n bottles of beer on the wall!| :: print (formatted) :message: "{%d} bottles of beer on the wall!\n" :arguments: $n :arguments |:: 1 bottles of beer!| :: print (formatted) :message: "1 bottle of beer!\n" |:: $n bottles of beer!| :: print (formatted) :message: "{%d} bottles of beer!\n" :arguments: $n :arguments |:: You take one down, pass it around!| :: print (formatted) :message: "You take one down, pass it around!\n" |:: when $n is $n| |:: when $n is $m| :: false |:: $_ - 1 bottles of beer on the wall! :@math: 1| :: print (formatted) :message: "1 bottle of beer on the wall!\n\n" |:: $_ - 1 bottles of beer on the wall! :@math: $n| :: print (formatted) :message: "{%d} bottle of beer on the wall!\n\n" :arguments: $n :arguments: |:: $n - 1 bottles of beer on the wall!?| :@math: subtract $n 1 |:: $_ - 1 bottles of beer :@math: $n| :: $n bottles of beer |:: $n - 1 bottles of beer?| :@math: subtract $n 1 |:: No more bottles of beer on the wall!| :: print (formatted) :message: "No more bottles of beer on the wall!\n"