%#beer#% Bottles of Beer on the Wall

%: 99 Bottles of Beer in TINCL. '98 Ben Olmstead. TINCL is meant for writing CGI programs, and, though it is possible to write command-line utilities in TINCL, this version *is* meant to be run on the web. You can check out a sample form at :% %.config.% get-input, post-input %{ #include int beer; }% %.fragments.%

%#beer#% bottle%{ if ( beer != 1 ) { }%s%{ } }% of beer on the wall,
%#beer#% bottle%{ if ( beer != 1 ) { }%s%{ } }% of beer,
Take one down and pass it around,
%{ if ( !--beer ) { }%No more%{ } else { }%%#beer#%%{ } }% bottle%{ if ( beer != 1 ) { }%s%{ } }% of beer on the wall.

%.html.% %{ set_var( &beer, 0, 1000, 99, get_value( "beer" ) ); }% %#beer#% Bottles of Beer on the Wall %{ while( beer > 0 ) { %(fragment)% } }%