|0100
	;bottles-of-beer print
	;on-the-wall print
	( incrment num )
	;bottles-of-beer print
	BRK


%SP { 20 }

@bottles-of-beer "99_bottles_of_beer 00
@on-the-wall "on_the_wall 00
@take-one-down "take_one_down,_pass_it_around 00


@print ( str* -: )
	( LDAk LIT "_ NEQk ?print/space )
 	LDAk DUP #5f NEQ
	?{ POP #20 }
	#18 DEO
	INC2 LDAk ?print
	( print newline )
	#0a #18 DEO	
	POP2 JMP2r