x0 := "9.8.7.6.5.4.3.2.1.0." ;
x1 := @text( @texttonumber( @explode( @repeat( @explode( x0 ; "." ) + "." ; 10 ) ; "." ) + @explode( @repeat( x0 ; 10 ) ; "." ) ) ) ;
bt := " bottle" ;
bb := bt + "s of beer" ;
ow := " on the wall" ;
td := "Take one down and pass it around, " ;
nl := @newline ;
x21 := bb + ow + ", " ;
x22 := bb + "." + nl + td ;
x23 := bb + ow + "." + nl ;
x3 := @implode( x1 + x21 + x1 + x22 + @text( @texttonumber( x1 ) - 1 ) + x23 ; nl ) ;
@replacesubstring( x3 ; ( ( nl : " " ) + "1" + bt + "s" ) : ( ( nl : " " ) + "0" ) : ( td + "-1" ) ;  ( ( nl : " " ) + "1" + bt ) : ( nl + "No more" ) : ( " no more" ) : ( "Go to the store and buy some more, 99" ) )