[beer
  [newline '' puts].

  [bottles
    [0 =] ['No more bottles of beer' put] if
    [1 =] ['One bottle of beer' put] if
    [1 >] [dup put ' bottles of beer' put] if].

  [0 =] [ne