99 Bottles of Beer

Voting

Bookmarking

Language GTML

Date:	04/20/05
Author:	Laurent Vogel
URL:	http://lvogel.free.fr/
Comments:	1
Info:	http://www.lifl.fr/~beaufils/gtml/
Score:	(2.98 in 108 votes)

#if a != a
  GTML version of 99 bottles of beer
  Laurent Vogel, http://lvogel.free.fr
  (GTML info  http://www.lifl.fr/~beaufils/gtml/)

execute as: cp THIS_FILE foo.gtm; gtml -Dcr='
' foo.gtm ; cat foo.html
#endif
#define p(a,s,d) a bottles of beerd<<cr>>
#define w on the wall
#define t take one down, pass it around,<<cr>>
#define u(j,s) <<p(j,s," <<w>>.")>><<cr>>\
<<p(j,s," <<w>>,")>><<p(j,s,.)>><<t>>
#define b(a) <<u(a8,s)>><<u(a7,s)>><<u(a6,s)>><<u(a5,s)>><<u(a4,s)>>\
<<u(a3,s)>><<u(a2,s)>>
#define c(a) <<u(a9,s)>><<b(a)>><<u(a1,s)>><<u(a0,s)>>
<<p(99,s," <<w>>,")>><<p(99,s,.)>><<t>><<b(9)>><<u(91,s)>><<u(90,s)>>\
<<c(8)>><<c(7)>><<c(6)>><<c(5)>><<c(4)>><<c(3)>><<c(2)>><<c(1)>>\
<<b("")>><<u(1,"")>><<p(No,," <<w>>.")>>

Download Source | Write Comment

Alternative Versions

Comments

ALISONBass24 said on 09/08/10 06:33:10

If you are in a not good position and have no money to go out from that point, you will need to receive the <a href="http://bestfinance-blog.com/topics/mortgage-loans">mortgage loans</a>. Just because it would aid you unquestionably. I get small business loan every year and feel good because of that.

Download Source | Write Comment

Add Comment

Please provide a value for the fields Name, Comment and Security Code.
This is a gravatar-friendly website.
E-mail addresses will never be shown.
Enter your e-mail address to use your gravatar.

Please don't post large portions of code here! Use the form to submit new examples or updates instead!

one program in 1500 variations