(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, _

# 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, _

# 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, _

# $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"