| bottle := method(i, | |
| if(i==0, return "no more bottles of beer") | |
| if(i==1, return "1 bottle of beer") | |
| return i asString .. " bottles of beer" | |
| ) | |
| for(i, 99, 1, -1, | |
| write(bottle(i), " on the wall, ", bottle(i), ",\n") | |
| write("take one down, pass it around,\n") | |
| write(bottle(i - 1), " on the wall.\n\n") | |
| ) |