I found out late in the day that yesterday was national beer drink day.
Thankfully I had just enough time to enjoy a very dark ale from Ireland while watching TV.
In honour of this auspicious day, I thought I would take the opportunity to show how you can create your own language in Forth. (Of course I had to tie that in)
Here is a program written in my new language called BREWER
: BEERS ( n -- ) \ Usage: 99 BEERS POPONE DRINK HOWMANY BOTTLES OF BEER ON THE WALL , HOWMANY BOTTLES OF BEER , TAKE ONE DOWN PASS IT AROUND , ONELESS BOTTLES OF BEER ON THE WALL . ANOTHER HANGOVER ;
And on the off chance that anyone cares... here is the source code for the language. :-)
Please drink responsibly