clear 100 iota reverse but-last [| n |
  n number>string " bottle" n 1 = [ "s" append ] unless
  " of beer on the wall, " n number>string pick
  " of beer!" append append append append append print
  "Take one down, pass it around, " print
  n 1 - dup 0 =
    [ "no" ]
    [ dup number>string ] if
  " more bottle" n 2 = [ "s" append ] unless
  " of beer on the wall!" append append print "" print drop
] each