IN: 99bottles
USING: sequences kernel prettyprint io namespaces math ;
	
: verse
	 dup dup pprint " bottles of beer on the wall, " write
		pprint  " bottles of beer." print
		"Take one down and pass it around, " write
		1- pprint " bottles of beer on the wall." print	terpri
		;

: verses-99-2