:import std/Combinator .
:import std/Number .
:import std/String .

main y [[rec]] (+99)
	rec =?0 case-end case-rec
		case-rec n ++ t1 ++ n ++ t2 ++ t3 ++ n ++ t1 ++ "\n" ++ (1 --0)
			n number→string 0
			t1 " bottles of beer on the wall\n"
			t2 " bottles of beer\n"
			t3 "Take one down, pass it around\n"
		case-end empty