Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- bottles: func [n][
- switch/default n [
- 0 ["no more bottles"]
- 1 ["1 bottle"]
- ][form reduce [n "bottles"]]
- ]
- verse: func [n][
- either n = 0 [
- {No more bottles of beer on the wall, no more bottles of beer.
- Go to the store and buy some more, 99 bottles of beer on the wall.}
- ][
- form reduce [
- bottles n "of beer on the wall," bottles n "of beer.^/"
- "Take one down and pass it around," bottles (n - 1) "of beer on the wall.^/"
- ]
- ]
- ]
- repeat i 100 [print verse 100 - i]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement